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Dedicated to Mom and Dad 


Publisher’s Note 


In keeping with our ongoing commitment to provide both literature and 
software for personal computers Melbourne House is very proud to be 
able to publish this book of games for the Commodore 64. 


You will find complete program listings, comprehensive structures and 
useful hints on each program. We have taken care to design the format in 
such a way that the programs will be easily read, to reduce the possibility 
of transcription errors, expecially with the graphics characters. 


After working through this book, | think you will agree that Clifford and 
Mark Ramshaw are immensely creative programmers and the programs 
in this book should set the standard future programs for the Commodore 
64 will be judged by. 


| know you will enjoy not only the games themselves, but also the insight 
you will gain about programming the Commodore 64. 


Melbourne House are not just publishers — we are dedicated to 
microcomputer software, and we are always interested in your feedback: 
If you have an article or program that you think might be of value to other 
users we want to hear from you. 


Until | hear from you, let me just wish you happy programming! 


ie Woe 


ALFRED MILGROM 
PUBLISHER 
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SPECIAL CHARACTERS 


In the program listings throughout this book spaces have been used 
ONLY as an aid to readability. When you type the programs in on your 
computer these spaces should be left out to conserve memory space. 


As an example the line 
100 POKE 54273,1 : POKE V + 23,0 
would be typed as 
100POKE54273,1:POKEV + 23,0 
on your computer. As you can see the first verson is much more legible. 


The only situation in which a space should be entered into a program 
listing is when the symbol 


appears. This special character does not appear on your computer's 
keyboard but has been placed in the listings to tell you, the programmer, 
when a space is necessary. 


One other symbol appears in the program listings which may not at first 
be recognised. This is the symbol 


ee ”” 


- 


and is actually just the COLON symbol located on the key next to 
the L key. 


The letter “I” and the number “1” can cause some confusion at times as 
well as the letter “O” and the number “0”. 


Once you are familiar with them they don't cause any problems, it’s just a 
matter of recognising the difference. 


The letter | looks like this: 
The number 1 looks like this: 
The letter O looks like this: 
The number 0 looks like this: cs 


Co) tem ted 


CHEXSUM 


RUN THIS PROGRAM FIRST 
The unique CHEXSUM program validation 
WHY: 


When a book of programs, such as this book, is keyed in everybody 
invariably makes reading and typing mistakes and then spends ages 
trying to sort out where and what is causing the error (or errors). 


Even experienced programmers often cannot identify an error by just 
listing the relevant line and need to do the tedious job of going back to the 
book, especially with DATA statements. 


Realising that this is a major cause of frustration in keying the programs 
we decided to do something about it. 


There are two short routines in this book which you should key in and 
save BEFORE you key any other programs in. 


Using these routines you will be able to find out if you have made any 
keying errors at all and in which lines, before you even run the program. 


In effect this means that with this book you need not waste time looking 
for keying errors, you simply run the routines and look at the display to 
identify lines containing errors. It’s just that easy. 


The principle behind the routines is a unique chexsum which is 
calculated on each individual line of the program as you have keyed it in. 
Compare this chexsum value with the value for that line in the list at the 
end of the program listing, if they are the same the line is correct, if not 
there is an error in that line. 


HOW: 


The CHEXSUM program uses line 62000 onwards, and no other 
program in this book uses line numbers that large. 


To use it, you need to type in the CHEXSUM program first (or load it from 
tape). You then type in the program you have chosen from the book. 


At any stage of typing your game program, you can check on the 
correctness of your work by entering the command RUN 62000 . 


When you have completed entering your program, and are satisfied that 
all is correct, you can delete the CHEXSUM program by running it and 
answering DELETE to the question “TO PRINTER ( Y, NOR DELETE ) 
?”. You can now save your program to disk or cassette as it will still be 
intact in memory. 


WHEN: 


The simplest method is to enter the CHEXSUM program in now and save 
it to tape or disk. Each time you want to enter a new program just load 
CHEXSUM and key the program. 


You can type in the CHEXSUM program at any time, even if you have 
started to type in a program. You cannot, of course, load in CHEXSUM 
from tape or disk because it will erase all you have typed so far. 


A partial solution to this is the MERGE program included here that will 
allow you to merge two programs. To use it, you will have to save all you 
have typed in so far onto your cassette or disk, load the MERGE 
program, and run it. You will be prompted to load in your program and the 
CHEXSUM program. 


If you are using a Datasette it might be an idea to save CHEXSUM and 
MERGE on a seperate cassette, saving CHEXSUM first. This will enable 
you to save all your corrected programs on one cassette and allow you 
easy access to the CHEXSUM and MERGE routines without having to 
constantly run backwards and forwards through the tape. 


HOW CAN YOU TELL IF CHEXSUM HAS BEEN CORRECTLY 
ENTERED? 


After having keyed CHEXSUM (or MERGE) the logical thing would be to 
chexsum these programs too, to ensure that they are correct. But is it 
possible to do this? If you follow the instructions you will be able to check 
them both. 

Type and save CHEXSUM 

Edit line 62020 and change the value of E from 61999 to 62200 


Type RUN and check output against the table of values at the end of the 
program. 


lf the program is incorrect then edit the incorrect lines and resave the 
program after having reset the values of E in line 62020. 


Type and save MERGE. 


You can only check the data in the MERGE routine, however this is the 
most important part of the routine. All you need to do is “RUN” merge, it 
will check its own data and prompt you if there is an error. 


Here are the routines and instructions on how to use them: 


CHEXSUM ROUTINE 


62000 T=PEEK( 62) s256+PEEK( G1)+1 

62010 INPUT"TO «PRINTER a ( #2 Yo,aN aOR « DELETE «> «2 "73 QS: 
IF Q@%$="DELETE " THENS2200 

62011 IF AS >*Y"THEN 62828 

62015 CLOSE4,4:0PEN4 ,4:CMD4:PRINT CHRS 1); CHR 1239) 


62020 PRINT CHR#< 14792 "CHECK «2 SUMa: -" 
LINK =PEEKC 44 ) 4256 +PEEK( 435° E=-61999 


62180 REM ¢ MAIN LOOP 4 
G2128 T=L INK 
€2129 LINK=PEEK( T+1)425E+PEEKC T) 
82135 LIN=PEEKS T+3)s256+PEEK( T+2) 
62136 IF LNGOE THEN PRINTtPRINT" TOTAL="7CH: CLOSE4,4: END 
62137 SB=STR# LND I L=ELEN S#)-1:3:SS=MID& SB,2,L) 
62138 PRINT SPC(6-LIsSBs 
62190 CS=8 =: N=8 : C=O 
€213@ FOR P=T+494 TO LINK-2 :=PK=PEEK(P) 
62160 IF PK=193 THEN P=LINK-2:GOTO 62198 
62165 IF PK=34 THEN C=(C=0) 
62178 IF C=6 AND PK=32 THEN 62190 
62180 IF PK=137 THEN N=N+1:CS=CS+( 2030RN) *PK=164 
62185 N=N+1:CS=CS4+¢PK OR ND 
62190 NEXT P :CH=CHtCS : PRINT 
"=";7;RIGHTS STRSC CS) ,LEM STR4CCS))-1):GOTO 62126 
62200 POKET,8:POKET+1 ,@:POKE46G ,PEEKS 946)-2: CLR 
62999 REM 


INSTRUCTIONS 


1: RUN 62000 
2: answer the question. 
“Y” if you want listing on printer 
“N” if listing is to be displayed 
“DELETE” to delete CHEXSUM 
hit “RUN/STOP’” to halt output. 
type “CONT” to continue. 
if all is correct then “RUN 62000” again and answer with “DELETE”. 
otherwise correct errors and start again from 1. 


heh Ae ars 
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CHEXSUM 


BFAaNA=1s468: Berryasiada 
SeRAie-<-+4494 Se leh-=23eea 
SeetLsis]1 Pe beos lake 
SSALS=2125 be laAh=4ee8 
SPAS H=42P85 SiLAaseP 7S 
EE iag=q 

BEiseahy7 TOTAL 45567 
PSLES=2a67 

B2isS=2115 

£2i36=2530 

62127-2308 

G2 136=921 

S2140=1142 

62150-2251 

HELGA =PATs 

S2tSS5=1431 


MERGE ROUTINE 


19 POKE 33,0:POKES6, 1359tCLR 

24 S=40705tFOR J=S TO S+78!:READ V 

BQ C=C+V¥itPOKE J,ViInexT 

40 IF C<>8756 THEN PRINT "DATA «4 ERROR" ItEND 
120 BATA 169,9,133,10,32,212,225,165 
130 DATA 43,72,163,499,72,56,165,45 
1490 NATA 233,2,133,93,165,46,233,0 
150 DATA 133,49,169,0,133,165,166,43 
160 DATA 164,44,169,8,32,2813,255,176 
170 DATA 14,134,435, 132,946,32,51,165 
180 DATA 184,133,4494,184,133,4943,96,178 
130 DATA 201,494,144,244,240,10,1084,133 
200 DATA 44,104,133,4943,29,108,0,3 

210 DATA 164,186,136,2940,209,208,239 
308 NEW 


INSTRUCTIONS 


1: LOAD and RUN MERGE. 

2: type or LOAD your program. 

3: type SYS 40705 “CHEXSUM”. (SYS 40705,8 for Disk.) 
4: then follow CHEXSUM instructions. 


Because MERGE, onrunning it, stores itself above BASIC memory it will 
reside there until you switch off the machine or change the top of BASIC 
RAM. From this it follows that you don't need to continually reload 
MERGE after running it the first time. 
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CHEXSUM AND GRAPHICS CHARACTERS 


At times it might be difficult to recognise the difference between two 
graphics characters and when you run the CHEXSUM you will get a 
variance in the values. If, after having checked the line carefully, you 
come to the conclusion that the error must be in one of the graphics 
Characters and you are reasonably sure that you keyed what you think 
the character should be, then don’t worry about the CHEXSUM variance. 
When you run the program it will be obvious from the screen display what 
the character should be if it is an important character. Some characters 
don't really matter that much and at times you probably won't even be 
able to find the wrong one in the screen display. 


Paranoid 


Just sit back and watch the machine print a kaleidoscope of graphics 
patterns. When you've had enough just ‘stop’ the program. For an 
entirely different pattern re-run the program. 


This is an easy, short program that has pretty impressive results. Use it in 
understanding your machine’s graphics capabilities or just something to 
occupy your screen (and spectators) while you are doing something 
else. 


PROGRAM STRUCTURE 

INITIALIZATION 

PLOT POINTS REVOLVING AROUND xX, Y 
CHANGE X, Y AND CHECK IF IN SCREENS SIZE 
RANDOMLY CALCULATE DX, DY 

LOOP 


SUBROUTINE PLOT X1, Y1 


VARIABLES 

V = VIDEO CHIP 

X, Y = BASIC SCREEN COORDINATES 
DX, DY = OFFSETS FROM PREVIOUS xX, Y 


X1, Y1, YA, YB, XA, XB = TEMPORARY STORAGE 


P(7) = BIT POSITIONS 
XC = BIT TO BE SET 
P = LOCATION OF BYTE TO BE PLOTTED TO 
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LINES 
1— 100 
105, 107 
110, 115 
120, 140 
145 


1000, 1010 


PARANOID 


1005 


1010 


DIM P ¢ 7 
P¢T.) 
95248 


V 


DY 
IF DX 
Y 


- 
° 


— 
= 


Y1 


BACKGROUND 
POKE 55,255 


> Y 
= | 


) 


- 
+. 


POKE V + 24, 
POKE V + 17, 
1024 


NT 


GOSUB 1000 
GOSUB 1000 


X1 xX 


THEN DX 


Dx 
IF RND ( 
DY 


DY 
IF DX 
GOTO 105 
YA INT 


DX INT 


XA 


XC 


P 


CHEXSUM 


ra pe pte 


3 


a=1014 


S=TR3 


Fade 
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INT 


+ 
hd 


a 
4 


) 


1 > 
INT 


1 


de 
- 
- 
vv 


24 


POKE V 


PEEK 
PEEK 


TO 2024 
TO 8192 


4g 


x 
Y 


= 
wv 


X1 
Yl 
Y 
— Dx 


> 


> 


= 
- 


( RND ¢ 
O AND DY 
X1 


a 
wv 


1 


+ 
~ 


(vl /8) 
INT ( X1 / 8) 
8 * 1024 + YA * 320 + XA * 8 + YB 
P ( XB) 
POKE P, PEEK 


POKE 56, 31 
FOR I 


( 7 I 
+ 


Oo TO 7 


32,0 3 


Ps 
ss 


> 3 


NEXT 
POKE V + 33,0 


( V+ 24 ) OR 8 
( V+ 17 ) OR 32 


+ 


DX 


= 
= 


1 


Xx #2 
X1 
Y + DY 


- 
~ 


-9 THEN 
INT ¢« RND ( 1 ) 
-9 THEN 
( RND ¢ 
IF DX < > O OR DY < > O THEN 105 
( RND ( 1 
( RND ¢ 
O AND DY 


1 ) 


l= ~ 


-~ 
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> 
- 


( P > OR XC 


Pe ee ee ee 
hl [oem oe 
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hd 
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if 


ps 
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ws 
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XB 
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ge 
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"| 
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lu Py 


m3 


TOTALS 
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POKE I,BA 
8 * 1024 


1 


-~ 
vv 


- 
ad 


GOSUB 1000 
= 319 - X1 
IF X < QO OR X > 159 
GOTO 110 
IF Y < O OR Y > 99 THEN DY 
IF RND ¢( 1 


1 ) 


1) 


Yi 


X1 


- 
~~ 


m io 


tJ to tad i) 


‘t 
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Sorat 


+ 
? 


X1 
GOSUB 19000 


DY 


RETURN 


- 
- 


INT ( RND ( 1 ) 
»*#S- 
QO THEN 100 
GOSUB 1000 
199 - Y 


) 


- YA * 8 
- XA * 8 


NEXT 
POKE 1,0 


> 
- 


L..3> 


- 
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S19 -— X 
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GOSUB 1000 


+ 
v 


GOTO 110 
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Poetry 


Sit back and watch as the program writes poetry before your very eyes. 
Try making changes to the poem’s words to make it ridiculous or 
humourous or just try and give it more to write. 


Press‘N’ key to stop the program or any other key for another poem. 


PROGRAM STRUCTURE LINES 


INITIALIZE ARRAYS 20 — 30 
INITIALIZE SCREEN 50 

CHOOSE WORDS 95 — 70 
CHOOSE LINES 75 

PRINT LINES OF POETRY 80 — 130 
GO AGAIN? 500 — 515 
WORDS DATA 1000 — 1045 
VARIABLES 


AJ$ = ARRAY CONTAINING ADJECTIVES FOR LINE 
AV$ = SAME AS AJ$ EXCEPT ADVERBS FOR LINE 
FL = TO REPEAT ALINE 

MO = RAMDOM TO SET “MOOD” 

AJ, AV = RANDOM TO CHOOSE WORDS 
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POETRY 
10 
20 
30 
90 


53 
60 


65 


7Q 
73 


BO 


B85 


90 


95 


100 


105 


110 


115 
120 


125 
130 
900 
905 
910 
915 
1000 
1005 
1010 
1015 
1020 
1025 
1030 


1035 


REM & & POETRY * *¥ 


DIM AU® ( 9,2) ,AV*® (9,2) + FORI=0O 1TO09 
READ AJ ( 1,0) ,AJ® ( I,1 ) ,AJS ( I,2) 

,AV$ ( 1,0) ,AVS ( I,1 ) ,AVS ( 1,2) + NEXT 
PRINT "C2" 3 SPC( 14 ) 3 "8 . POETRY . 88 el"; 


CHR® ( 8 ) 
FL = 0 + MO = INT ( RND (1) %*3) 
FOR I = 1 TO 4 + INT ( RND (1) %*4>») = 
AV = INT ( RND (1) € 10 ) 
AJ = INT ( RND (1) 8 10) ¢ 
IF AJ = AV THEN 65 
AJ$ = AJ® ( AJI,MO ) + AVS = AVE ( AV,MO ) 
ON INT ( RND (1) #€ 11 +1) 
GOTO 80,85, 90,95, 100, 105, 110, 115, 120, 125, 130 
PRINT “THE . "3;AJ$3" 2. MAN 2 "3AV$3 
"| BEGUILED . HER" = GOTO 500 
PRINT "A . "3AJ$3"" . WOMAN . ENCHANTED . ME . WITH 
2 "3 AV63" . BLINKING . EYES" + GOTO 500 
PRINT “IN . "3AV$3" . KEEPING . WITH . HER . "3AJ$3 
“ . VvOWwS" = GOTO 500 
PRINT "ALAS, . SHE . MUST . "3; AV$3" . LEAVE . HIS 
2 "s$AJ¢3" . PRESENCE" = GOTO 500 
PRINT “A . BREATH . OF . “;AJ$3" . AIR . "SZ AVES" 
. RUSTLED . IN . THE , TREES" + GOTO 500 
PRINT "ANOTHER . "3 AJ%3" . DAY . "3 AV$5"" . ENDED" 
GOTO 500 
PRINT “THE . "3AJ$5" . HILLS . MARCHED 
" . ACROSS . THE . HORIZON" @ GOTO 506 
PRINT “AND . THEN:" += GOTO 500 
PRINT “THE . "3;AJ$35"“ . BELL . TOLLED . "3; AVS3 
" | ONCE . AGAIN" = GOTO 500 
PRINT "THE . "3; AV$3" 2. "3 AJ63"" . HUMAN | ARRIVED" 
GOTO 500 
PRINT “LIFE . “3;AV$3;" . DAWNED . ON . THE . "3 AJU$3 


"3 AVS5 


“ . UNIVERSE" + GOTO 500 
NEXT I + IF FL = 0 AND RND ( 1) > .S THEN 
FL = 1 + GOTO 460 
GET AS + IF AS = "N" THEN PRINT CHRS ( 9 ) ¢ 
END 
IF AS = "" THEN 505 
GOTO 50 
DATA SORROWFUL , APPATHETIC, JOYFUL, SADLY 
, CARELESSLY, HAPPILLY 
DATA PUTRID, ODOURLESS, SCENTED, FOULLY 
, CAREFULLY, SWEETLY 
DATA BORING, ENLIGHTENING, INTERESTING, TIRELESSLY 
, EFFORTLESSLY, EASILY 
DATA UGLY, PLAIN, BEAUTIFUL, CLUMSILY, , GRACEFULLY 
DATA FAT, THIN, LEAN, NOISILY, QUIETLY, 
DATA PATHETIC, ORDINARY, SUPER, PATHETICALLY 
,» SUPERBLY 
DATA IRRITATING, CALMING, EXCITING, SHARPLY 
, COOLY, EXCITEDLY 
DATA TORTUOUS, HATING, LOVING, , CONTEMPTUQUSL Y 
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4p 


» LOVINGLY 
1040 DATA DYING,LIVING, NEWLY BORN, PAINFULLY, EASILY, 
1045 DATA STUPID, IGNORANT, INTELLIGENT, FOOLISHLY 

»» INTELLIGENTLY 


CHEXSUM 
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Turkey 


Attempt to keep the turkey in the air as long as possible by manoeuvering 
the waiter underneath it and then bouncing it off the platter. 


You control the waiter with the ‘Z’ (left) and ‘M’ (right) keys. The turkey 


can be dropped twice but becomes inedible after the third time and the 
game ends. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION 1—5 
POINT SCORE AND NO. OF DROPS LEFT 10 

READ KEY 20 
MOVE LEFT 26 
MOVE RIGHT 32 
MOVE TURKEY 50 
CHECK IF WAITER CAUGHT TURKEY 95 — 100 
ANOTHER GAME 120 

IF YES, RUN AGAIN : 140 
ELSE END 160 
DATA 9000 — 9050 
VARIABLES 


V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO DISPLAY AND SCREEN 
MEMORY 

LI = NO. OF DROPS LEFT 

P = POSITION OF WAITER 

X, Y = POSITION OF TURKEY 

S = SCORE 

PE = KEY PRESSED 

XD, YD = DISPLACEMENTS FOR TURKEY 

M, X1, Y1, P = TEMPORARY STORAGE 


17 


TURKEY 


1 
2 


90 


95 


100 


110 
120 


130 
140 
150 
160 
9000 
9010 


9020 
9030 


9040 


90350 


POKE 53281, 
CO = 54272 = 
V = 53248 + SC 
XD = INT (¢ RND 
POKE V + 21,3 + P 
FOR I = 0 TO 126 
NEXT 

POKE V,P + POKE V + 1,200 = POKE V + 2,X ¢ 
POKE V + 3,Y 

PRINT “(2 igSUPER . WAITER' . . KESCORE:" 

FOR I = 55381 TO 55406 = POKE 1,5 ¢ 
POKE I — CO,86 + NEXT = 
FOR I = 55381 TO 56156 STEP 40 

POKE I,5 + POKE I — CO,86 + POKE I + 25,5 + 
POKE I + 25 — CO,86 = NEXT 

PRINT "SEE | 2) 2) 2) Fl BB 
BP] BP) BP) BF) PP) BP) PB) PB" Ss Ss". ww wk a “SLI 

PE = PEEK ( 197 ) 

IF PE < > 12 AND PE < > 36 THEN 50 

IF PE = 12 AND P > 70 THEN P =P —~ 2 

IF PE = 36 AND P < 240 THEN P = P + 2 

POKE V,P 

Yi =Y + Xi =X = M= 

Yi = Y1 + YD = Xi = X1 + XD 

IF X1 < 70 OR X1 > 240 THEN XD = — XD + 
S=S+1i1:+M=1 

IF Y1 > 220 THEN X = P + 
XD = INT ( RND (1) & 
LI = LI - 1 + GOTO 110 

1: 
) * 


od 


53280,9 
* xX = 1 


»>* 9-4) 2 YD=-1 
2040,13 + POKE 2041,14 
EAD @ =: POKE 832 + I,Q@ : 


Y = 200 « 
9-4) 2 YDD=-1¢ 


IF Yi < 70 THEN YD 


XD = INT ( RND ( 1 9-4): 5 =5 +1 


“= 1 

IF Y1 < 210 AND PEEK ( V + 30 ) < > QO THEN 
YD = - 1 = XD = INT ¢( RND (1) &€&9- 4) & 
S§$=S$ + 2 


IF M = O THEN X = X1 + Y = Y1 + POKE V + 2,X 
POKE V + 3,Y 
IF LI > 0 THEN GOTO 10 
PRINT "BOO @M OO © HF & &) BITHE 
4 TURKEY . IS . INEDIBLE!!" 
PRINT “(4 (Oo Gi ©) B] ©) 2) 2) BM. . OA WANT LTO 
4 TRY « AGAIN?" 
GET AS = IF A*® = "Y" THEN RUN 
IF AS < > "N" THEN 140 
END 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0, 0, 7, 255, 240, 7, 255, 240, 0, 62,0,0 
DATA 64, 128, 0,92, 128, 0, 92, 128, 0, 73,0 
50, 62, 0,0, 30, 0,0, 30,0,0, 18,0,0,17,0,0,17 
DATA 0,0, 49,128 
DATA 0,0,,0,0,9,0,0,0,0,0,0,192,0,7 
,240,0, 15, 240, 0, 31, 252, 0, 63, 254, 0, 127, 254 
DATA 0,255, 127, 1, 248, 63,9, 224,14, 7,128 
514,15, 240, 15,3, 14, 30,46, 1, 248,0,0,112 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 


a 
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Quack 


This is the old fair ground game but instead of using bullets you are 
equipped with a bow and arrow. An arrow will of course travel slower than 
a bullet and thus requires better anticipation. The ducks do not move at a 
uniform speed which makes the game a lot harder. You have a limited 
number of arrows and also a time limit. 


Your controls are: 
‘Z’ left 
‘C’ right 
‘M’ to fire an arrow 


| SPRITE 


DUCK 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEY PRESSED 

PRINT TIME, SCORE, ETC 

IF OUT OF TIME GO TO END 
MOVE BOW AND ARROW 

IF ‘S’ FIRE ARROW 

IF SPRITE COLLISION FLIP BIRD 
POSITION BOW AND ARROW 
MOVE DUCKS 

FLIP BIRD ROUTINE 

PRINT MESSAGES 

FIRE ARROW ROUTINE 
DATE 


VARIABLES 

S = SCORE 

Ai = ARROWS LEFT 

AR = 0: NOT IN FLIGHT 

P = BOW POSITION 

X, Y = ARROW POSITION 

X ARRAY = DUCK POSITIONS 
PE = CURRENT KEY 

Z = SPRITE COLLISION 


DEAD 
DUCK 
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SPRITE 


LINES 
o—9 
10 
(i142 


15 

18 

21 

30 — 40 
100 — 130 
200 — 280 
300 — 310 
9000 — 9110 


QUACK 


O POKE 55,255 - POKE 56,47 = CO = 54272 + 
Al = 190 = S&S = QO = POKE 54296,15 = 
POKE 54278,240 = POKE 54276,3 
1 PRINT “(2" = POKE 53281,0 = POKE 53280,0 = 
V = 33248 = POKE V + 21,463 = POKE 2040,192 = 
POKE 2041,193 
2 FOR I = 1 TO 4 = POKE 2041 + 1,194 = 
POKE V + 40 + I,2 + I = NEXT = 
POKE V + 39,8 = POKE V + 40,1 * POKE V + 29,1 
3 FOR I = O TO 254 = READ @ + POKE 12288 + I,Q =; 


NEXT 

4 P= 120 + X = 132 ¢ Y = 217 ¢ POKE V,120 + 
POKE V + 1,220 ¢ POKE V + 2,X ¢ 
POKE V + 3,Y + FORI=0 103 

SX (I+1) = YcI+#i) = 90 
¢ POKE V+ 4+ 18 2,X (1+1») ¢ 
POKE V+ 5 + 1% 2,Y ( I +1 =) ¢ NEXT 

6 I = PEEK ( V + 30) = FOR I = 55376 TO 56256 
STEP 40 = POKE 1,4 * POKE I — CO,160 =: 


POKE I + 32,4 

7 POKE I - CO + 32,160 + NEXT + 
OR I = 55336 TO 55368 + POKE I,4 + 
POKE I — CO,160 = NEXT 

B TIS = “OOOGO0O" = PRINT “ fy EAR EeKR 
EXSERAKK GEQUACK EMESEKERER EERE EK" 

9 PRINT “ i (9) © fe) ©) BE BE 88 8 8 i 
TIME (1) (6) (9) fe) (0 BE 8 88 88 BESCORE" 

10 PE = PEEK (¢ 197 ) 

11 PRINT * & © ©) © fe f ) 88 88 8 Oe 8 oe" 
RIGHTS ( TI%,2 ) = PRINT " &9 [el [e 
CEUCECEGQECEGEQECEGEGE [ELEM TM | Rrecn 

12 PRINT " (9 (9 (©) Sw. 4. BR BB “SAL = 
IF TI® = "000100" THEN 200 

13 IF PE = 12 AND P > 35 THEN P = P - 4 + 
IF AR = O THEN X = X —- 4 

14 IF PE = 20 AND P < 237 THEN P = P + 4 + 
IF AR = O THEN X = X + 4 

15 IF PE = 36 AND AR = O AND Al > O THEN 
Al = Al - 1 + AR = 5 + GOSUB 300 

18 Y = Y — AR + Z = PEEK ( V + 30) ¢ 
IF Z > 3 AND Y > 90 THEN GOSUB 100 

19 IF Y < 60 THEN Y = 217 + AR = 0 + X =P +12 
POKE V + 3,Y 

20 POKE V,P = POKE V + 2,X + IF AR > O THEN 
POKE V + 3,Y 


Bi 


3O FOR I =O TO 3 = X (€1+1) =X ¢€T+1) + 3 
IF X (€ I+ 1) > 241 THEN X €( I+ 1) = 3O = 
POKE 2042 + 1,194 

40 POKE V+ 4+ 10% 2,X (I +1) ¢ 
POKE V+ 5+ I 8 2,Y ¢( I+ 1 =) = NEXT 


50 GOTO 10 

100 S = § + 10 = Z = PEEK (V+ 30) * A=5 ¢ 
IF Z AND 8 THEN A = 1 

105 IF Z AND 16 THEN A = 2 
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a> 


110 IF Z AND 32 THEN A = 3 
113 IF Z AND 4 THEN A = 4 
115 POKE 2042 + A,195 = AR =0 + Y = 218 + 
X = P + 12 + POKE V + 3,Y + 
120 POKE 54276,0 + POKE 54276,33 
125 FOR I = 15 TO 1 STEP - .5 + POKE 54273,1 % 2 ; 
POKE 54296,I + NEXT + POKE 54296,15 + 
POKE 54273,0 
130 Z = PEEK ( V + 30 ) = RETURN 
200 POKE 54276,0 + POKE 54276,17 ¢ 
FOR I = 240 TO 1 STEP — 3 + POKE 54273,I1 =; 
NEXT + POKE 54273,0 
210 FOR I = 1 TO 11 + POKE V + I,0 + NEXT 
220 PRINT “€2G8YOUR . TIME . IS . UP!" 
230 PRINT “ (1 (@] ENYOU . SHOT"3S / 103; "BIRDS." 
240 IF S > 5OQ THEN PRINT “{aiWELL . DONE!!!" 
250 PRINT “ (e] () (1 M§DO . YOU . WANT . ANOTHER . GO?" 


260 GET AS = IF AS = “Y" THEN RUN 
270 IF A® < > “N" THEN 260 
280 END 


300 POKE 54276,0 + POKE 54276,129 : 
FOR I = 1 TO BO STEP 2 = POKE 54273,I + NEXT 
+ POKE 54273,0 

310 RETURN 

9000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0, 0, 0,56, 0, 0, 238, 0, 1,199,0 

9010 DATA 3, 1,192, 6, O, 192, 12,0, 96, 24, 0, 48, 48 
,0, 24, 110, 0, 236, 1, 199, 0,0, 54,0 

9020 DATA 0,0,0,0,0,0,0,0,0,99 

9030 DATA 0,0,0,0,0,0,0, 16,0,0, 56, 0,0, 56,0 
,0, 124,0,0, 16,0,0, 16,0, 0, 16,0,0,16 

9040 DATA 0,0, 16, 0,0, 16,0, 0, 16,0,0,14,0,0, 16 
50,0, 16,0, 0, 16, 0,0, 16, 0,0, 14,0,0, 16 

9050 DATA 0,0, 16,0,99 

9060 DATA 0,0,0,0,0,0,0,0,0,0,0,4,0, 7, 232 
5120, 7,176, 252, 7, 232, 126, 3,134, 63, 255, 0 

9070 DATA 63, 255, 0, 31, 255, 0, 15, 255, 0, 15 
,255, 0,15, 255, 0, 3, 248, 0, 0, 128,0,1,0,0 

9080 DATA 2,0,0,4,0,0,4,0,0,5,0,0,99 

9090 DATA 0,0,0,5,0,0, 6,0,0,4,0,0,4,0,0,2 
, 128, 0,1, 248, 0,0, 255, 0,3, 255,0,15 

9100 DATA 255, 0, 15, 255, 0, 15, 255, 0, 31, 255, 0, 
63, 3, 134, 63, 7, 2352, 126, 7, 176, 252, 7, 2352 

9110 DATA 120,0,6,0,0,0,0,0,0,0,0,0,0,0,0 
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1-442; 


CHEXSUM 
Q=: 
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rong onnne st ss 
“gQryeornenm-inga 8 
a ee Os ee ” 
bou tt @ @ Wow om ow 4 
Gf G © @ GG © © & il 
amy of om an eal 
G& 6) G Gi Gi @) Gr Gi et xa gq. 
anni nraaian a b- 
mi 
am st wr ih f Gd f- mm mm ah OO mo A nano woo om 
a darren oe He Orn Annas oe eM es eS a oA OW ee 
Tas ans oon Mt TAG rah we HOO Nae Ko eo 
Wm Ooo wr tM Am tT OHM OM Oe mr mM OY OS OM Re Sp et et et Oot tom 
I it it) li Hood i tt "i H {I MN iH oul i il It il ny 1 il i iF It ul Woof u It tt It i) tt it 
Wor Doo he Om we OO cr a me om ee ee RD mam ee) bi mim @ &  & &@ @ & & 
Tho ed et wt mt mt er bt SG ee A ee a 
et get we ot em et ed owed TY Ag te op teh typ red 


SPRITE 
ARROW 
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Laser Tower 


Escape from the Laser Tower, battling against gravity and evading the 
tractor beam. The tractor beam fires from the tower on the left of the 
screen. It alters its height as you move away from it, trying to land in the 
pit at the right. 


Your controls are: cursor up for up, cursor right for right. 
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PROGRAM STRUCTURE 
INITIALIZATION 

PRINT GROUND 

MOVE TOWER 

FIRE LASER 

GET MOVE 

IF MOVEMENT MAKE NOISE 
CALCULATE NEW POSITION 
IF HOME: END 

DON’T LET GO OFF SCREEN 
IF COLLISION THEN: END 
DATA 


VARIABLES 

GR = GRAVITY 

VV = VERTICAL VELOCITY 
HV = HORIZONTAL VELOCTY 
FR = TRACTOR BEAM 

A = X POSITION 

TW = TOWER HEIGHT 

PW = LASER 
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LINES 

5— 35 
50 — 54 
55 — 80 
85 — 95 

100 

101 — 102 
105 — 130 
130, 2000 — 2025 
135 — 145 
150 — 1010 
10000 — 10070 


LASER TOWER 


5 POKE 55,255 = POKE 56,47 

10 V = 53248 =: CO = 54272 : POKE 54296,15 

12 FOR I = 12 8 1024 + 256 TO 12 8 1024 + 263 =; 
POKE I,0 + NEXT 

15 FOR I = 0 TO 47 = READ A = POKE 12 ¥ 1024 + I,A 
+ NEXT + POKE V + 22, PEEK ( V + 22 ) OR 16 

20 POKE V + 24,28 = POKE V + 34,2 = POKE V + 35,7 =: 
POKE V + 33,0 + POKE Vv + 32,0 

29 FOR I = 12352 TO 12478 = READ A = POKE I,A = 
NEXT + POKE V + 37,2 + POKE V + 38,7 

30 POKE V,75 = POKE V + 16,0 + POKE V + 1,100 =: 
POKE V + 28,0 = POKE V + 39,4 + POKE V + 21,1 

30 GR = .4 = VW =0Q0 2+ HV=0 +: FR= .5 ¢ 
POKE 2040,193 

90 PRINT “ C2 ®] 1 fe) fe) fo) (el fo) fel fel fet fo) fe) Oe) (4) fo) fo 
EA (©) B11 EF) BB] 2) BE} Bi"; = FOR I =1T07 : 
PRINT " Ef () @8"5 = NEXT = TW = 1625 

51 PRINT " @§CCCCCCCCCCCCCCCCCCCCCCCCCC 
2 «4 «2 4CCCCCCCC B®] "5 

52 PRINT “DDDDDDDDDDDDDDDDDDDDDDDDDDEEEEDDDDDDDDD" ; 


Sz FOR T=194S5 TO TW+40 STEP-40 =POKE 1,0 =POKE T+CQ, 
: NEXT : 

54 A = PEEK (Vv + 31 ) 

55 R = INT ( RND (1) * 3 +41) ¢ ONR 
GOTO 85,60, 70 

60 IF TW < = 1065 THEN 100 

65 POKE TW + CO,10 + POKE TW,O + TW = TW — 40 = 
GOTO 80 

70 IF TW > = 1945 THEN 100 

75 POKE TW,32 + TW = TW + 40 

80 POKE TW + CO,2 = POKE TW,1 + GOTO 100 

85 POKE 54276,0 + IF RND ( 1) < .95 THEN 100 

90 J = TW +1: EN = TW + 38 = POKE 54273,72 + 
POKE 54272,169 + POKE 54277,44 = POKE 54275,7 
> Pw =0 

91 POKE 54274,0 + POKE 54276,65 

93 IF PEEK ( V + 31 ) THEN 1000 

94 POKE J + CO,7 + POKE J,2 + J =39 +1 
POKE 54272,PW =: PW = PW + 6 3 
IF J < = EN THEN 93 

95 FOR EN = TW + 1 70 J = POKE 54274,PW 
PW = PW - 6 = POKE EN,32 = NEXT 

100 K = PEEK ( 197 ) = HV = HV - FR - ( K = 2) 

101 IF K < > 2 AND K < > 7 THEN 105 

102 POKE 54273,2 = POKE 54272,37 = POKE 54277,47 : 
POKE 54276,0 =: POKE 54276,129 

105 IF HV < — 4 THEN HV = —- 4 

110 IF HV > 4 THEN HV = 4 

115 VW = VW + GR + ( K = 7) = IF VW < - 4 THEN 
VW =- 4 

120 IF VV > 4 THEN VV = 4 

125 POKE Vv + 1, PEEK ( V + 
A = PEEK (V+1) ¢ 
POKE V + 1,40 

130 IF A > 234 THEN 2000 

135 A = PEEK ( V ) + HV = B = PEEK ( V + 16) AND 1 


i 


o> 


1) + VV = 
IF A < 48 THEN 
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¢ IF A > 255 THENA=0%¢ B=1 
140 IF A < O AND B THEN B = 0 = A = 255 
142 IF A > 55 AND B THEN A = 55 
145 IF A < 32 AND B = O THEN 1000 
150 POKE V,A = POKE V + 16, PEEK (V+ 16) ORB 
155 IF B = O AND PEEK ( V + 16 ) AND 1 THEN 
POKE V + 16, PEEK ( V+ 16) - 1 
160 IF PEEK ( V + 31 ) AND 1 THEN 1000 
165 GOTO 55 
1000 POKE 2040,194 =: POKE V + 28,1 + POKE 54273,34 ; 
POKE 54272,75 =: POKE 54277,143 
1005 POKE 54276,129 + FOR I = 1 TO 500 = NEXT + 
POKE 54273,0 + POKE 54273,0 + POKE V + 24,20 
1010 PRINT "2 ©) © ©] ©) &] &] BI] @HHARD . LINES" : 
GOTO 2010 
2000 FOR I = 1 TO 5SQ00 = NEXT = POKE 54273,0 =: 
POKE 54272,0 = POKE V + 24,20 
2005 PRINT "J fe] ] fl fa" SPC( 15 ) “WELL . DONE!” = 
PRINT " ©) © 0 B21 ®] B] BF) BF] BF] &] B)] B}YOU . ESCAPED 


a ALIVE" 

2010 PRINT " ( [9 IQ ANOTHER . GAME?" = POKE V + 21,0 =: 
POKE 54276,0 

2015 GET A® = IF AS = "Y" THEN POKE V + 24,28 = 
GOTO 30 

2020 IF A® = "N" THEN END 


2025 GOTO 2015 

10000 DATA 220, 236, 220, 2346, 220, 236, 220, 234,0 
50,0, 48, 127, 120, 252, 252 

10005 DATA 0,0,0,0, 255, 0,0,0,0,0, 0,8, 157, 255, 255 
, 255, 255, 255, 255, 255, 255, 255 

10010 DATA 255, 255,0,0,0,0,0,0,0, 255 

10015 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0, 12,32,0, 14,48, 128, 51,121 

10055 DATA 240,463,135, 160,31, 121, 240, 14, 48,128 
,12,32,9,0,9,0,0,0,0,0,0,0,0,0,0,0 

10060 DATA 0,0,0,0,0,0,0,0,99,0,0,0,0,12,0,0,63 
.0,9,55,0,0,55,0, 252,55,0 

10065 DATA 55, 247, 240,53, 87, 112, 13,85, 255, 3 
585, 87,0, 245, 95, 0, 213, 240,0,55,0 

10070 DATA 0,55, 0, 0, 221, 192, 3, 93,192, 13,125,192 
613, 205, 192,55, 3,0,0,0,0,0,0,0 
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CHEXSUM 


5=98 1 
1M@=1912 
12=P9598 


2A=4125 
25=e2619 
S0=3587 
S1=38a1 
e=3720 
52-3222 
54 =896 
55=2497 
As 


m it 


J 
™ of 
" 


tO fy 
ro 
a) 


ey a 


ia 


Om wi ] 


S5=1772 
28=4842 
SL=1227 
S3=1282 
24=4529 
Sh=2514 
{@O=2278 
AL=1E78 
@E=2285 
A5=1462 
19=1123 
15 =3863 
oe) = 


Mm 
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S ol 

fl oll 

fs (0 we 
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sJ ore J 
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Hl ot 
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oo S fo mM Ow 


KS) 
It 
BK) 
Bi) 


{65=477 
1Q@@@=33g92 


1O@5=3806 
IM1Q=ES55 

LHAH=SA33 
PAMAS=4558 
2eB1G8=2z643 
Pe LS=P4Ag 

FOLA=B95 
e025 =588 
{Q@GAR=2e222 
{HAAS =2967 
LS8a1a=-1s62 
{AH LS=3988 
1MBSA5=4398 
iPeBA=3476 
{MBE D=BBBS 
7@ 
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Moon Buggy 


Manoeuvre your jumping moon buggy over the moon’s surface 
attempting to reach the landing pad on the other side without running out 
of fuel or crashing into a star mine. 


The moon buggy needs to build up thrust but be careful because once 
“lift-off has occurred it has a lot of forward momentum. The star mines 
are everywhere in space and you have to manoeuvre between them to 
get to the landing pad. 


Your controls are: 
‘Z’ left 
‘C’ right 
‘M’ thrust 
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PROGRAM STRUCTURE 
INITIALIZATION 

DISPLAY SET-UP 

GET KEYBOARD CHARACTER 
VERTICAL CONTROL OF BUGGY 
THRUST SOUND 

ZERO FUEL TEST 
HORIZONTAL CONTROL 
MINE COLLISION TEST 
ERASE BUGGY 

DISPLAY BUGGY 

TEST IF BUGGY ON PAD 
DISPLAY REMAINING FUEL 
MINE EXPLOSION 

NEW GAME PROMPT 

DATA 


VARIABLES 

SC = SCREEN REFERENCE POINT 

X1 = HORIZONTAL POSITION OF BUGGY 
Y1 = VERTICAL POSITION OF BUGGY 

X = PREVIOUS HORIZONTAL POSITION 
Y = PREVIOUS VERTICAL POSITION 

FU = FUEL 

K = KEYBOARD VALUE 

VV = VERTICAL VELOCITY 

D = VERTICAL DISTANCE 
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LINES 
1— 15 


20 — 45 & 200 — 2050 


50 

52— 77 
56 

78 

80 — 86 
87 

90, 102 
100 

101 

102 

200 — 210 
220 — 235 
10000 — 10025 


MOON BUGGY 


1 POKE 55,255 + POKE 546,47 = V = 53248 

: POKE V + 32,0 + POKE V + 33,0 

5 FOR I = 12544 TO 12551 + POKE I,0 
¢ POKE 54296,15 

10 FOR I = O TO 111 * READ A = POKE 12288 + I,A 
+ NEXT 

12 POKE V + 24,28 

Sx=4272 Y=+i17+ sf = 1 
=> KB = 197 + FU = 250 

20 GOSUB 2000 

25 FOR I = 1 TO 25 

30 P = INT ¢( RND ( 1 ) & &30 ) 
+ IF PEEK ( SC + P ) < > 32 THEN 30 

35 POKE CO + P,10 = POKE SC + P,12 * NEXT I 

37 PRINT " &4 ESCCCCCCCCCCCCCCCCCCCCCCCC" 5 

40 PRINT 
" Bsd Ce) ce} fe) Ce} fed fod ed Co) ed fe) ed fe) ) ol fe) I ED 

[1] G8 BREFG"S 

45 PRINT 

"“BEORRIEI OOO MMMM © © 4 ee el je Ia 
fe) (2) (6) BE 8 BE BAHT" § 

50 K = PEEK ( KB ) = IF FU < 2 THEN 40 

52 IF K < > 36 THEN 40 

55 vv = vw - 1 +: FU = FU - 2 
¢ IF VW < - 5S THEN VV = - 5 

56 POKE 54273,72 = POKE 54272,169 = POKE 54277,15 
+ POKE 54276,0 = POKE 54276,129 

60 VV = VV + .5 + IF VV > 10 THEN VV = 10 


> NEXT 


65 D= VV / 10 = Y1 = INT ( Y + D ) 
+> P = PEEK ( SC + Y1 &® 40 + X ) 
> IF P = 2 AND VV > O THEN FU = FU —- .05 
> W=07 D=9 
67 IF P = 12 THEN 200 
7O IF P = O THEN X1 = X - 12: Y1 = Y+ 1 
> FU = FU - .1 = GOTO 84 
75 IF P = 1 THEN X1 =X +1: Y1 = Y +i 
+ FU = FU -— .1 + GOTO 846 
77 Yl = ¥Y + D+ IF Y1 < 1 THEN Y1 = 17+ W=O0 


78 IF FU < 1 THEN 400 
go Xi =X +(K = 12) —- (K = 20) 
+ FU = FU+ (K= 12) + ( K = 20) 
+ IF X1 < O THEN X1 = 0 
85 IF X1 > 39 THEN X1 = O 
96 IF X = X1 AND INT ( Yi ) = INT ( Y ) THEN 90 
87 IF PEEK ( SC + INT ( Y1 ) ® 40 + X1) = 12 
THEN 200 
88 IF PEEK ( SC + INT ( Y1 ) * 40 + X1) < > 32 
THEN 100 
90 POKE SC + INT ( Y ) & 40 + X,32 = X = X1 7Y = Y1 
100 Yi = INT ¢( Y ) + POKE CO + Y1 #® 40 + X,7 
: POKE SC + Y1 & 40 + X,11 
101 IF X > 33 AND X < 37 AND INT ( Y) = 19 
THEN 300 
102 POKE SC + FU / 10,32 


32 


105 
200 


205 


210 


220 


225 
230 
235 
300 
305 


310 
400 


2000 


2005 


2010 


2015 


2020 


GOTO 50 

POKE SC + INT ( Y ) ® 40 + X,32 
+ Y = INT (¢ Y1 ) = POKE CO + Y & 40 + X,2 
+ POKE SC + Y *® 40 + X,13 

POKE 54273,34 = POKE 54272,75 = POKE 354277,127 
= POKE 5S4276,0 + POKE 54276,129 

FOR I = 1 TO 2000 = NEXT = POKE V + 24,20 


+ PRINT 
“2 Mf a YOU . CRASHED . INTO .A . MINE (] ©] () ©) ey" 

PRINT “ GSANOTHER . GAME?" = POKE 54272,0 

+ POKE 54273,0 
GET AS = IF AS = “Y" THEN 12 
IF AS < > "N" GOTO 225 
END 
FOR I = 1 TO 2000 = NEXT 


POKE V + 24,20 
+ PRINT 
“C9 ME ESWELL . DONE, . YOU . COMPLETED . YOUR . 
MISSION (e] (©) (el fe) fl" 


GOTO 220 
POKE V + 24,20 = FOR I = 1 TO 1000 = NEXT 
+ PRINT 
“@2YOU . RAN . OUT . OF . FUEL' @ © © &@ 4 a" 
+ GOTO 220 
PRINT 
“22 if te) fe) © 2 ) ) fl | ©! BE) 2] ©) 2) BB) 
FF] 2) ©) B1OBA &) BP] BE) 2) 2) BB) 2) 2) 2) 2) BB) 2) 
BFF 2) 2) 2) 2) 2) 2) 2) 2) 2 2) 2) 2) 2) BP) BoB"; 
PRINT 
“CCC BF) BB) 2) EB) 2) 2) 2) 2) BP) 2) 2) &) &) BB) 
BE] 2) &) 2) 2) ©) 2! BE) 2) 2) 2) BB) &) B1}aCCCCCA 
(JR IR IRIS IR III II I I oe eo 3 ee 
PRINT 
* 21 EE] B&B) BE) 2) &) 2) BE) B}oCCCCCCCA B) BF] &} 
II II III I I I I oe oo oe 
FIBBBE B] BI®CCCCCCCCC BI] FP) 2] Bl"; 
PRINT 
"B81 2 2) 2) BP) 2) 2) 2) Be) 219A 2] OB) Be 2) Be) BICCCA 
BE] BICCCCCCCCCCA &] B&B] BF] BF) FE) BE) BI BB) 
EB] ®@BBCCA BI “a 
PRINT 


Fe] 
“CCCCBBCCCCCCCCCCC BI Ele el 
1 ®CCCCC I CCCCCCCCCCCCCCCCCBBA 
1 | B]a"; 
PRINT 
“BBCCCCCC = I CCCCCCCCCeccececccce 
el &] DCCCCCCCCCBBBBBACCCCCCCCCCC" ; 
PRINT 
“CCCCCCCCCCA & SCCCCCCCCCCCccccecccecec 
CCCCCCCCCCCCCCCC BICCCCCCCCCCCC" 3 
PRINT “CCCCC"; 
PRINT 
“ CCCCCCCCCCCCCCCCCOCCCCBCCCCCCCCCCCCCCCCEC * 5 
PRINT 
“ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC" 5 
+ POKE 2023,3 
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2050 POKE 56295,1 = RETURN 

10000 DATA 1,3,7, 15, 15,31, 95, 255, 128, 192, 224, 240, 248, 
248, 252, 255 

10005 DATA 149, 255, 255, 255, 255, 255, 255, 255, 255, 255, 
255, 255, 255, 255, 255, 255 

10010 DATA 0,0, 24, 126, 126, 40, 24, 36,0, 0, 1,2, 252555555 
66, 129,0,0,0,0,0,0 

10015 DATA 0,0,128, 64, 64, 64, 140, 140, 0,0,0,0, 63, 48, 
131, 4,0, 0,0,0, 255, 0, 255, 24 

10020 DATA 0,0, 0, 0, 252, 34, 193, 32, 0, 120, 68, 254, 255, 
66, 231,66 

10025 DATA 0,0, 0, 16, 40, 16, 0, 0,8, 56, 252, 63, 60, 52, 34, 64 


CHEXSUM 

Pasa 77 1Q1=P279 ieMes=e247e2 

S5=P4erT 1SP=1ag2 
{O=PPA1 195=475 TOTAL= 171732 
12-E72 FPAQ=5221 
15=3922 PAS=3417 
Ee=347 PLA=5AaG9 
25=7ie PPA=2450 
30-7994 P25=1243 
Q5=1815 PBM=1327 
37 =P228 P35=129 
49-1593 2AH=1829 
A5=P1a7 395=5199 
=M=1598 218=527 
=P=969 AAR=SATS 
55=3204 PAaAA=3eP3 
5SS=3417 2Pae5-4age 
Bf=215e 2A19=48e9 
65=6957 P915=4241 
e7=843 2029-5376 
7O=3501 PAPS=Se22 
F5=3591 2e29=8515 
77=2P83 PARS=639 
7e=867 PH4A=3781 
SA=4910 2A45=4292 
25=11236 PASM=T25 
26=2012 LARAM=3A74 
27=2P426 199@5=2759 
S8=P612P 19M1A=2273 
9%=2522 19M15=2936 
19%=3544 LAREA=2TSF 


Higher or Lower 


Bet on the card being higher or lower than the previous one. If you win, 
you may get the chance to go for double or nothing. 


The routines used to draw cards and select them from the deck are good. 
They would be useful in creating programs for your own card games. 


All instructions necessary for the game are in the program. 
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PROGRAM STRUCTURE LINES 


INITIALIZE — SCREEN O— 1 
— DECK 4—8 
WAIT FOR DEAL COMMAND 10 
PRINT MONEY 11 
PICK A CARD 14— 16 
PRINT CARD 17— 37 
BUZZ 38 — 39 
IF WIN 40 
MUSIC AND MESSAGES 90 — 52 
PLAY AGAIN? 95 — 75 
ELSE MESSAGES AND PLAY AGAIN? 80— 95 
CLEAR BOTTOM OF SCREEN 100 — 110 
VARIABLES 


S$ = SYMBOL OF SUITS 

C = PACK OF CARDS 

M = MONEY 

D = DOUBLE OR NOTHING 
CU = HOW MANY TURNS 
D = POINTER INTO PACK 
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HIGHER OR LOWER 


O PRINT “@2" = POKE 53281,7 = POKE 53280,6 
+ DIM S@ ¢( 52) = DIM C ( 52) + M= 20 = D= 0 
= Cu = 0 


1 POKE 54296,15 = POKE 54276,0 = POKE 54278,240 
4 FOR J = 0 TO 3 + FOR I =1 TO 13 
*CtCl+38 13) =12 SCI +394 13) 
= "me a" 
5S IF J = 1 THENS#@ (1+3%13) = "BEY" 
6 IF J = 2 THEN S®# (I+39813) = "mp" 
7 IF J = 3 THENS# (I +3813) = “Bo @" 
8 NEXT I,J 
10 POKE 54276,0 + POKE 54276,17 
11 POKE 54273,34 + POKE 54272,75 + PRINT “ & EAMONEY 


a -. « o» o o BEBE ER SMS "RP" = GOSUB 100 
13 POKE 54273,0 + POKE 54272,0 ¢ Cu = Cu+ 1 
14 FOR I = 1 T04 


15 = INT ( RND (1) € S32 +1) = IFC (P) =O 
THEN 15 

16 Ni = N + N@ = STREP ( C (CP) ) = N=C (PRP ) 

17 IF © ¢€ P ) = 1 THEN N# =" , A" 

18 IF C ( P >) = 11 THEN N#® = “ , J" 

19 IF © ( P >) = 12 THEN N# = " .Q" 

20 IF C ( P >) = 13 THEN N@ = “ . K" 

21 IF C ¢( P >) = 10 THEN N# = "10" 


22 C (PP) = O + PRINT “B§M@. «2 «0 2 mTTTTtttt 
HIGHER . OR . LOWER me TT TTT ttttt" 

23 IF I = 1 THEN 27 

24 PRINT "MMMM OMAMOOOAMMOMMM MO els 
HIGHER . OR . LOWER?" 

25 PRINT ™ €9 (ol fo} Cod (oy fo) (ed ol ol Oe) ol et) fe) Oe) fe) fel | ol ts 
HIGHER . OR . LOWER?" 


26 GET A® + IF AS < > “H" AND AS < > "L" THEN 25 
27 PRINT “BS BI"; = IF I = 2 
THEN PRINT “ 63 B®] BB) ©] BB) Bl) BE) BB)"; 
28 IF I = 3 
THEN PRINT “ 3 BI &] B) B! Bl BI 
BE] ©] B] 2) 2) BY BP) 
29 IF I= 4 
THEN PRINT " & BB) B] 2) FE) BI EI 
BE] &) FF) &) &) ©) 6) 
SO PRINT “ fe) fe} f) (2) (2 fe) GS El i a & 
SH GE SESE MRE. . ww. 
. » « » 6 [6) 08 OE On 08 88 88 
31 PRINT “ (el @ Te Oe: 
32 PRINT "™ (2) & G8 60 00 Gh ee. 
Le a o. o« He fC 08 08 
G8 08 88 88 8 Ge Be 


33 PRINT " 3 BI" 
+ IF I = 2 THEN 
PRINT “ 9 #1 &] 2! 2) &1] ©) Be) FE) &) 2"; 
34 IF I= 3 
THEN PRINT “ 9 BI] BI 


35 IF I = 4 


37 


THEN PRINT " 63 &] ©] B11 2) &) 2] 2) 2) EB) EE) 2) 2 
B12) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) BB"; 
PRINT ™ fed fe} Ce) fe) fe) (e) fe) Be) "SNS; 
¢ PRINT " (J (1 (e1"3S$ ( P ) § ¢ PRINT “ (9 [o} [e] mm" 


3 NS 
POKE 54276,33 = POKE 54273,6 = POKE 54272,206 
= FOR Z = 1 TO 200 = NEXT = POKE 54273,0 
POKE 54272,0 


IF AS = "H"“ AND NI > N THEN 80 
IF AS = "L” AND NI < N THEN 80 
FOR J = 1 TO 300 = NEXT J,I + FOR I = 1 TO 244 


STEP 2 + POKE 54273,I + NEXT + POKE 54273,0 

IF D = 1 THEN PRINT ™ 629 fed fo) (od fo) fo) fe) (el (el (ol fe) 
(o] fo} fe) fe) (eo) fo) EA YOU'VE . DOUBLED . YOUR . MONEY" 
> M=M * 2 + GOTO 53 

PRINT "BE MM MMMM MMO © © el e iA 
MBWELL . DONE . YOU'VE . WON .5P" * M=M +5 

PRINT ” B39 EAMONEY. . 4. . «o 80 88 80 88 88°55 "RP" 

D=0 + PRINT “MMe oeoo ea @ @ a 
(o) fo) fo) fel fe) fe] IDO . YOU . WANT 
2 TO . PLAY 4. AGAIN?" 

GET AS + IF A® = "N" THEN END 

IF AS < > "Y" THEN 56 

IF RND ( 1) < .5 THEN 70 

PRINT “(el mDO . YOU . WANT . TO 4 TRY.” 
DOUBLE . OR . BROKE’ ?" 

GET A$ ¢ IF A® = “N" THEN 70 

IF AS < > “Y" THEN 60 

D=1 

IF CU > 9 THEN 4 

GOTO 10 

FOR I = 244 TO 1 STEP — 2 + POKE S4273,I * NEXT 
¢ POKE 54273,0 

PRINT “BHM MMMOOOMMoe Mew oo © el © 
MBHARD . LINES . YOU’VE . LOST!" 

PRINT “ &3 FAMONEY . . . « « HE BE 68 08 88"5 M5 "PRP" 

M=M- 5 + IF M = 0 OR D = 1 THEN PRINT “ (]YQU’ 
RE . BROKE! . BYE" = END 

D = 0 = PRINT "DO. YOU . WANT . TO . PLAY 4 AGAIN? 


se 
a a a - a a ry - ro «a a > - 


GET AS + IF AS = “Y" THEN 70 
IF AS < > “N" THEN 88 
END 


PRINT “ 3) @} 1" = FOR I = 1 TO 19 

PRINT “2 ao as aA a a a a a _ & s a - ~ -~ - - - - 
yy » & a & a «a ~ a -~ a~ a - - - - - a "3 

NEXT 

RETURN 
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CHEXSUM 


@=414¢8 
1=195 


3 


[s~ 
eg) 
wT 
mh 
W 

Iv} 
uo 


L1=4369 


ei 
aw 
ce) 


" 
a 


wi 
on 
w% 
4 
i 

ti 
Ci 


ef 
ts 
=~! 
st 
it 
) 


ie oy 


SCREEN 
DISPLAY 


StHPTT tT THIGHER 


e 
« 
- 
- 
- 
~ 
- 
- 
- 
- 
i 
im) 
=i 
Y 
ia 


48=1461 


we 


JON, SP 
Y AGAIN? 
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North Sea Copter 


This game really tests your skill and though it might seem otherwise it is 
possible to complete it. 


You must land your copter on an oil rig, at night, in the height of a storm, 
visibility is nil and you rely on lightning to see the rig. The wind buffets you 


about and as you manoeuvre or hover, gravity will pull you down, you 
must correct this by increasing lift. 


On the right of your screen are your instruments, watch your fuel and rate 
of descent, to land your rate must be below 2. 


‘A’ moves you to the left, ‘D’ to the right and ‘W’ gives you lift. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION Oo—4 
SETUP GRAPHICS 5— 19 
UPDATE GAUGES 20 — 21 
LIGHTNING TIMING 22— 35 
READ KEYBOARD 36 — 55 
UPDATE SPRITE POSITION 66 — 80 
CRASH HANDLER 100 — 200 
LANDING HANDLER 500 — 640 
NOTE SEQUENCE FOR GOOD LANDING 800 — 890 
SPRITE DATA 9000 — 9070 
VARIABLES 


V = POINTER TO DISPLAY CHIP LOCATIONS 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 
T = LIGHTNING TIMER 

X = SPRITE X COORDINATE 

Y = SPRITE Y COORDINATE 

D = WIND DIRECTION 

PE = SPRITE COLLISION FLAGS 

F = FUEL LEFT 

G = DESCENT RATE 


‘a 
“gs eegace 


a 
. 
: 
: 
2 


a 

| 

Cet ee 

Ht es 
: 

B 

aie 


SPRITE 


SPRITES No. 1 & No. 2 
FORM A 
HELICOPTER 
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NORTH 


Q 


10 


11 


15 
16 
17 
18 
19 
Fae) 
21 
22 


20 


30 


SEA COPTER 


PRINT "a" + POKE 53280,0 + POKE 53281,0 
+ V = 53248 =: CO = 54272 + POKE 54296,10 
¢ POKE 54276,0 

POKE 54276,129 + POKE 54278, 240 

POKE 54273,0 : T=0 + X = 35 + 
INT ( RND (1) * 180) + Y = 55 

D = ( INT ( RND(1)%5)-2)/2 

10 + POKE V + 21,3 + POKE 2040,13 

POKE V + 39,1 * POKE 2041,14 + POKE V + 40,4 

POKE V + 28,3 

POKE V + 37,5 + POKE V + 38,7 + FOR I = 0 TO 190 
+ READ @ : POKE I + 832,Q@ + NEXT 

PRINT ™“ 9 fo) (0 0 fe) () f) () fo 88 0 Be 8 2 8 2 Be 8 
oaBiadte ee sf) BE GE 8 2 0 2 2 eB ET: 
MAWIND. 4. GS :l: © OH BE 88 0 68 BR OR Mb. kw kk a 
J: “ 

PRINT “ (6 88 88 88 80 88 88 0G 88 88 2 8 t: MMDESC. 2 oe: 
9] O68 OE Be kw ak kk a EE" 

PRINT " (©) GE GE 00 08 08 08 98 68 88 88 88 et: MPFUEL W 4. OBOE 
[©] BE OR BO GR SR OR BEM w 1 kw ww fs 7: 0 BO 8 6 8 
HERRERO Ge Sse See Py” 

FOR I = 56016 TO 56055 + POKE I,4 
¢ POKE I — CO,223 + NEXT 
¢ FOR I = 56056 TO 56296 +: POKE 1,6 

POKE I - CO,160 = NEXT = POKE V,Xx 


a a |] oa 


: POKE V + 2,X + 24 + POKE V + 1,Y 
+ POKE V + 3,Y *+ PE = PEEK ( V + 31 ) 

PRINT "88 © © © © © () B®) 2) BE] 2] em LC 8 0 eo 
Bb: Cl GR EEE IRA: ae Iw: a 
SERRE GR GR FRI WIE: lak a Oe ae” 

PRINT "BI BEE HMACaE HEE Inooee 
o « » « Wf i--- 2 © 08 0 2 2 2 2 0 2 Be 
LL ee = Oe Oe 

PRINT “BIBI i 2. « « FB. 2 at eelleelltlll  lle 
4 @ 6)" 

PRINT "BI BI BIW OB @ 2162 2) 2) 2B 2) 2) 2) 2) eB!) i 2) 
FE] EF) BS) Be oo" 

PRINT “BI BIE WO B® . 2B BE) 2) 2) 2) 2) BB) Bi 2" 

PRINT "BIE? #1 id 41 &)] @ 218) 2) 2) 2) BB) BF) 2) 2) eB 2!) i eo" 

PRINT "BI BP] BB] id 2) BB] 2) BE BE) 2B) BE) 2) BB) PB) BC" 

PRINT ° £9 Oo 9 ©) ) © © ff] © © fo © fe) 08 08 08 6 6 ee 8 
BRia. . « BE EE BE"SD = PRINT “ ©) ©] 08 08 68 88 BE 88 
BE Ww « .« BE OH OS BO"s INT ( G & 10 ) £¢ 10 

PRINT “ (6) (6) HE 08 88 88 BO ee ww lw Cw OE 


sINT ( F € 10 ) / 10 
T= T+ 1 = POKE 2041,14 = POKE 54273,100 


IF T = 30 THEN POKE 53281,11 
+ PRINT ™ 69 (6) (2) (2) (eo (6 G8 8 BE 8 oe (2 el Bn FO 


IF T = 32 THEN 
PRINT " bd fe) [e) {6} 
CU | | ee tO 


fe] BE RE BE  . fw. 
BEG . GRR. Ce. 


BE 
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ra 


890 


IF T = 3S THEN POKE 53261,0 * T = QO 
POKE 54273,0 
PE = PEEK ( 197 >) 
IF PE = 18 AND F > O THEN X = X +2: F=F-  .1 
IF PE = 10 AND F > O THEN X =X - 2: F=F-—.1 
IF PE = 9 AND Y > SO AND F > O THEN Y = Y - 2 
*->G=07 F=F- .3 
X = X + D+ IF RND ( 1) < .1 THEN X = X + 2 
7+ F=F-—.41 


POKE 2041,15 = POKE 54273,100 + Y= Y+G 
* G=G+ .2 + IF X > 215 THEN X = 215 
IF X < 32 THEN X = 32 
POKE V,X + POKE V + 1,Y = POKE V + 2,X + 24 
+ POKE V + 3,Y 
IF F < O THEN POKE 54296, 1 
IF X > 11 AND X < 120 AND Y > 135 THEN 500 
IF PEEK ( V + 31 ) <¢ > O THEN 100 
POKE 54273,0 
GOTO 20 
POKE 53281,11 
GEOR TRISTE TR | it wes! | : 
O8 ) 08 08 8 eS 6 8 2 0 2 el 68 8 Em 0 a 
POKE 54296,15 = FOR I = 20 TO O STEP —- .2 
+ POKE 54273,I1 = NEXT = POKE 54273,0 
FOR I = 1 TO 20 = POKE V,X — I + POKE V + 2,X + I 
+ NEXT 


FOR I = Y TO 220 = POKE V + 1,1 + POKE V + 3,1 
: POKE 54273,1 = NEXT = POKE 54273,0 
POKE V,0 = POKE V + 1,0 + POKE V + 2,0 
? POKE V + 3,0 
POKE 53281,0 
> PRINT " £3 © ©) © 0 (0 08 08 08 88 0 ee 2) el 8 6 =: 8 
BEC) G8 08 2 0 8 OS ee 8b SS ee oe 6 eee" 
FOR I = 1 TO 2000 = NEXT 


RUN 
IF G > 2 THEN 100 
POKE 53281,2 ¢ POKE V + 1,136 + POKE V + 3,136 
¢ POKE 54273,0 + POKE 54276,0 + POKE 54276,17 | 
GOSUB 800 ; 
PRINT "HMMM MMOMMMomoOMeManeo@e 4 &) & 
(=) cd BB) eee OC WELL . DONE . aeeeeee” 
PRINT "il 8] &] ©) Bl Pl) @) ) . 2. J. ANOTHER .GO?. 4. 1" 
GET At = IF AS = "Y" THEN RUN 
IF AS < > "N" THEN 625 
PRINT " ii Bl BIBYE . BYE." 


END 

FOR I = 30 TQ 100 STEP 2 = POKE 54273,1 = NEXT 
FOR I = 140 TO 95 STEP — 1 = POKE 54273,1I = NEXT 
FOR I = 5 TO 20 STEP .4 + POKE 54273,1 = NEXT 
FOR I = 90 TO 70 STEP —- .3 + POKE 54273,1 = NEXT 
FOR I = 100 TO O STEP — 3 = POKE 54273,1 = NEXT 
FOR I = 20 TO 10 STEP — .2 + POKE 54273,1 = NEXT 
FOR I = 90 TO 70 STEP — .2 = POKE 54273,1 = NEXT 
FOR I = 0 TO 10 STEP .1 = POKE 54273,1 = NEXT 


POKE 54273,0 + POKE 54277,0 
RETURN 
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9000 
9010 
9020 
9030 
9040 
9050 
90640 


9070 


DATA 0,0,0,0,0,0,0,0,0,0,0, 0,0, 0,0,0,0,0,0,0,0, 


0,0,0,0,0, 0,0, 64, 64,0,17,0,0 


DATA 7,174,0, 10,170, 0, 4,0, 0, 17, 0,0, 64, 64,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0, 99 
DATA 0,0,0,0, 0,0, 85, 85, 85, 0, 14, 0, 0, 215, 0,0, 251, 
0,3, 184, 192, 3, 184, 240 
DATA 15, 186, 176, 15, 190, 176, 171, 190, 252, 171,170, 
252, 187, 255, 252, 15, 255, 240 
DATA 3,223, 192,0, 14,0, 0, 16,0,5, 85, 64,0,0,0,0,0, 


0,0,0,0,99 


DATA 0,0,0,0,0,0,0,84, 0,0, 16,0, 0, 215, 0,0, 251,0, 
3,184,192, 3, 184, 240 
DATA 15, 186, 176, 15,190, 176, 171, 190, 252, 171,170, 
252, 187, 255, 252, 15, 255, 240 
DATA 3,223, 192, 0, 16,0, 0, 16, 0,5, 85, 64, 0,0,0,0,0, 


0,0,0,0 


CHEXSUM 


@=4eqo9 
{=1384 
e-4514 
324526 
4=2588 
3 =SEaS 
S=E161 
TSer39 
S=4469 
S=5149 
if=3029 
il=sg4i3 
fa= i335 
1H=2S155 
{reisat 
{2=1329 
i@=1142 
2A=6522 
a&is=3433 
e2=139905 
Sos ioLe 
29=5238 
soe=ilGli 
2E=528 
49-796 
45=2588 
sa=e2572 
So =3527 
66=2944 
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S4H=2037 
SS5@=7075 
SehA=Pe83 
S7@=1861 
SSH=1167 
SaH=143 
AAA=4qqt 
Hig=4e295 
MPA=37a4 
S2O=432 1 
M40=2987 
AS@=3510 
PE A=432 1 
679=2802 
AL= 21isass 


Flight Simulator 


6835 1"° 


Test your skill at guiding your light aircraft onto the landing strip. Can you 
make a perfect landing? Watch your instruments as the runway comes 
up into view, you get all the feedback you need to do the job. 


Your controls are: 
‘F1’ gives a cockpit display 
‘F3’ gives a map 
‘A’ tilts the plane to the left 
‘D’ tilts it to the right 
‘W’ alters levelling up 
‘®’ alters levelling down 
Keys 1— 9 decide your acceleration/deceleration 
‘—" reverses the acceleration/deceleration rate 
‘space bar’ lifts or lowers your undercarriage depending 
upon its current position. 
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There are many ways in which to ‘fail’ your landing: 
if the plane is tilted on an angle 
if the last altitude reading was above 50 
(you've dropped the plane) 
if your attitude is not level 
if your undercarriage is not lowered 


Safe landing! 


SCREEN 
DISPLAY 


“1 
OLE RK I Pals 


> 


SE. [sere] 
SEEBSEr ince! GE° 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEY PRESSED (A$) 

PRINT COCKPIT DISPLAY 

PRINT MAP DISPLAY 

CHANGE ATTITUDE 

RANDOM TILT 

REVERSE ACCELERATION 

READ SPEED KEY 

LIFT OR LOWER UNDERCARRIAGE 
CHANGE SPEED 

CHANGE ALTITUDE 

PRINT ALTITUDE, DISTANCE, SPEED 
CHECK DISTANCE AND ALTITUDE 
PRINT OUT COCKPIT MESSAGES 
RESTART MAIN LOOP 

SOUND ROUTINE 

ROUTINES TO PRINT COCKPIT VIEWS 
PRINT MAP 


PRINT OUT DETAILS OF LANDING AND 
ASK IF PLAYER WANTS ANOTHER GAME 
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LINES 
0— 25 

30 

35 

36 

50 — 56 
67 

70 

75 

80 

90 — 95 
100 — 105 
134 — 137 
140 — 148 
160 — 179 
180 

182 — 190 
200 — 730 
1000 — 1070 


5000 — 6040 


VARIABLES 

AL = ALTITUDE 

AT = ATTITUDE 

U = UNDERCARRIAGE 

DI = DISTANCE 

A$ = HOLDS KEY PRESSED 

CS = START OF COLOUR SCREEN MEMORY 
SI = SPEED INCREMENT 

SP = SPEED 

SD = ACCELERATION OR DECELERATION 
SC = SCREEN MEMORY 

F = FUEL 

H = TILT OF PLANE 

M = 1 MAP VIEW, 0 COCKPIT VIEW 

| = TEMPORARY STORAGE 
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FLIGHT SIMULATOR 


36 


40 


PRINT “(2" = POKE 53281,0 = POKE 53280,9 + 
SC = 1024 =: CS = 55296 

POKE 54296,5 + POKE 54277,0 : POKE 54278,0 : 
POKE 54276,0 + POKE 54278,240 = POKE 54274,129 

POKE 54273,0 : POKE 54272,0 > U=- 1: AT=0:3 


F = .6 = AL = 5000 + INT ( RND ¢( 1) €® 1000 ) 
+ DI = 2500 
H=90 + M= 0 + SP = 300 > SI =53 + SD= 1 
PRINT “@§$ lid. . MH. «4 MIE Mra boi 


fod hal fd dae Fat fat ft bat bat Eee 
ma i a. « a5 
P 


ie | ee ee De 
NEXT 

PRINT “lal «2 «2 G& 2 «2 ane Se 
Se ae ees, ee a ee ee ee [1] lad 
a ae LE ge 


PRINT “ &3 ©) &] BP] BP] &)] BF] BI BI BE) BI 
. 1) ©) 8868 BER 4. C1 Ol BG 88 

FOR I = 440 TO 479 = POKE CS + I 
POKE SC + I,160 + NEXT 

PRINT "(UM OM MMO Ea PigffacecrrAl... Id 
BJ)... « MIPE A. . 1. 1 a 2 ESTOWER . MESSAGE: 


Elis 1 ©) §8 88M 
|| a 


&} 
as 
9 


3 


7. or 
PRINT “I. a1 2. 4 a. a a a MP. 2 WE EE 
BF... . . ._ MRS SS Seeeee seem" 
PRINT “im. am Sb... aw Sk kk ek EE 

Aaa iT: fa U a - >» ~» > ry PTT | PJ: > - a - » - a a > a iy: 7 
PRINT “i. SSS S656......4..4. 4. M2 

iy: Gee - z z a - a TT | iG: - ry a a a YY > >» z> > Py: 
PRINT e » - - a€a ~ a -z - > a a a - WHT: 2 il: 

Lo 4 za - > » > YT) ee za «az -z- a za > za a >» a if; " 
PRINT " PY - > az» za -z- ~» > z ry - - - a> a, iT? nn: 

Tae. eee ee . MOS SSS Seeege pm 


PRINT “laf. GE a 4 UL 

PRINT “laji. i #8 @ MO Ww. 
ALTITUDE . 2 «4 «2 a2?" 

PRINT “li. i) 2 «2 «2 GE a aw 


> 

& 

b 

» 
7» 

» 

b 

> 

a 


DISTANCE 


» 
> 
» 
b 
> 
> 


- 


PRINT “l@. Meee M.nw sa. nan sr a oo 
UNDERCARRIAGE=>= . a@UP"™ 
PRINT “(@HORIZON. 2. 2 «2 «2 «2 «2 « EASPEED 


a lt 
-~ a a a a - -~ a * 


POKE CS + 960,9 + POKE SC + 960,223 : 
POKE CS + 999,9 + POKE SC + 999,233 

POKE 54273,0 + GET AS 

IF AS = "BE" AND M = 1 THEN PRINT "Qa" : M= 0 : 
POKE 53281,0 =: POKE 53280,9 + POKE 54273,100 = 
GOTO 5 Note: A$ = Fl Key 

IF AS = "G" AND M = O THEN PRINT "2" = M = 1 3 
GOSUB 1000 Note: A$ F3 Key 

IF M = 1 THEN 90 

IF AS = “W" THEN AT = AT - 1 = IF AT < — 1 THEN 
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AT =- 1 


IF A® = "X" THEN AT = AT + 1 = IF AT > 1 THEN 
AT = 1 
IF A® = "X" OR AS = “W" THEN GOSUB S500 
IF A® = "A" THEN H = H —- 1 3: IF H < ~ 1 THEN 
H=-1 
IF AS = "D" THEN H = H + 1 + IF H > 1 THEN H = 1 
IF At = "A” OR AS = "D" THEN GOSUB 600 


IF RND ( 1) < .0S THEN H = INT 
( RND ( 1) * 3) - 1 + GOSUB 600 

IF AS = “"—" THEN SD = - SD =: POKE 54273,1 

POKE 54274,0 

IF VAL ( A% >) > O AND VAL ( AS ) < LO THEN 
SI = VAL ( A® ) = POKE 54276,0 * POKE 54276,33 : 
POKE 54273, 100 

IF A® = " ." THEN U = — U = GOSUB 700 

SP = SP + SI * SD = IF SP < 50 THEN SP = 50 

IF SP > 450 THEN SP = 450 

IF F < & THEN AL = AL — INT ( SP / 50 + AT # 


( SP /35) 475) = GOTO 110 
AL = AL —- 100 
IF F < 7 THEN F = F + ¢€ SI / 3200 ) 
IF F < 7 THEN DI = DI —- .1 - 
( SP / 300 + U / 30) / 3 —- SP / 50 = GOTO 130 
DI = DI - .2 


IF DI < O THEN 5000 
IF DI > 30 AND AL < O THEN 5000 
IF M = 1 THEN 140 


PRINT “ cu 69 (el (2 (6) (1 ce} Co) Co (e0 (0 (e [e) (el 
CRORCHCRCRCRCECE IN IN IMIN IBN INN BoB ON IE 4 
Bl) 6) BB) 2) eB) 2) 2) 2) BB) BI 

PRINT " @) @) ©! 6) ©] 6] ©) 2) B&B) 8) 2) 2) BB) Be) 6 
EIEN INN nen 8) eames | 
BEG GG SRS INT (CDT). 

PRINT "© ©) @] & © ©) El) &) EB) 6) BB) 2) BB I 
ele) LEI ELE] EV EIEIEIEIEIE!. . . . - 00 
Tee) ei 

PRINT "“OOOOOO0O00000 BH FE 
1B) 6) &) 6) BE) B&B) Bo" 

IF F < 7 THEN FOR I = 1 TO INT ( F ) = PRINT 
“i C2) ges = NEXT 

PRINT 

IF F > S THEN PRINT "BM OO © © ©) ©) & © 
CECRCOBCRCECRORGE IN SN INN IN INN INR—ES Dyn cong 

POKE 54273,0 = POKE 54276,0 = POKE 534276,129 = 
IF AL < 10 AND DI < SO THEN POKE 54273,10 


IF M = 1 THEN 390 

IF INT (¢( DI ) > 600 AND INT (¢ DI ) < 70Q THEN 
GOSUB 200 

IF INT ¢ DI ) > 400 AND INT ( DI ) < S99 THEN 
GOSUB 250 

IF INT ¢ DI ) > 200 AND INT ( DI ) < 299 THEN 
GOSUB 300 

IF INT ¢ DI ) > 100 AND INT ( DI ) < 199 AND 
AL < 300 THEN GOSUB 350 
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148 


IF INT 
AL < 200 THEN GOSUB 400 


IF RND ( 1 ) < .8& THEN 30 

PRINT “ 9 Ce} (ed Ce} fed Ce) fe} fe} fe) fe) fe) fe) fe) fe) fe) fed 
BO G8 G8 08 OE a a lk 
BG OR 98 BE OR 

PRINT "SEM © © © © © 2) 2) © ©) 4 © © te) 
G8 88 08 88 G8 Be 28 88 0 ee Be Se"; 

IF RND ( 1 ) € «7 THEN 176 

IF F > 4 THEN PRINT " . LOW . ON (2) 98 08 08 88 88 88 
~FUEL" = GOTO 182 

IF SP = 450 AND DI < 300 THEN PRINT "COMING 
o IN (2) 68 08 08 8 8 6 0 8 8 Be ee yOO A. FAST” = 
GOTO 182 

IF AL < 500 AND DI > SOO THEN FRINT "YOUR . TOO 
. ©] 08 88 88 68 88 ee ee ee J LOW” = GOTO 182 


IF F > 3 


( DI >) < 80 AND INT ( DI >) > 30 AND 


AND SP > 300 THEN PRINT 


“ (@) BETOO.FAST'" + GOTO 182 
450 AND DI < 300 OR AL < 500 
AND DI > 5O0O OR F > 3 AND SF > 300 OR 
RND ( 1 ) > .2 THEN 30 
'?) OOKING . 
POKE 54276,0 + POKE 54276,17 + FOR I 


IF F > 4 OR SP 


PRINT 


POKE 54273,1 


GOTO 30 
POKE 54276,0 = POKE 54276, 33 


« 
a 


FOR I = 
POKE 54273,50 
FOR I = 1 TO 100 
GOTO 30 
PRINT " 69 (e] fe] (0 
©] Fl PF) FP) Fl El 
RETURN 
PRINT " G9 (9 (9 (ed 
=) £1 &) Bl BF) PF) 


ao (©) 98 08 06 88 8 8 a 8 ae 2 GOOD” 


NEXT = POKE 54273,0 


10 TO 20 STEP .4 = POKE 54273 


> NEXT 

fe} fe} fe) fe) fe) Bl BB) BI 
BB] 2) 2) 2) Bl BP) a. - 
fe) (9 fe) (Co ©]? ) BF) 
BE] 2) BB) &) Be) a. . fe) 28 


sl 


1 TO 30 = 


- 
~ 


NEXT = 


a 


RETURN 

PRINT ° &9 9 ) (9 4 © BB) BI] &) 2) EF) B&B) 2 
1) 2) 2) 2) 2) 2) ©) 2) eB) el"; 

PRINT “ Ga.- (0 GH MO OB- 2. . - CC) SE. ww 
(9) @8 GEORG Oe Bebe ww ww ow ow - 0 
SHOR OO GR ORR Re ke” 

RETURN 

PRINT © b9 Ce) fed fe) fe) 2) &) Be) 2) 2) BE) ©) 2) B&B) 2 
BP] 2] BF) B) 2) BP) BB) Bl" 

PRINT " aa... (©) 98 08 80 O8..--- (=) O89 08 68 ae 0s ae. 

o o - «» o - (8 BE RR. ek 
PRINT “ (6) €0 00 G8 G8 OR G8 Se. 2 wk 
RETURN 
PRINT ° 9 (2) ©) 0 2] &)} 2) 2) ©) &) ©!) ) B) ©) 

&] &] BF] BP) BB) BF) BI": 

PRINT "Gi h] . Gd . (8) 88 8  --- Co e 
SMG BRL). .- . « Ce 00 0 0 8 8 0 8 2 
Be a a a a SE 

PRINT “ (4) G0 G8 OE GE ee kk 
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o « o o» (Co (2 20 00 2 0 0 0 0 6 Be 2 2 8 
G0 08 80 80 88 88 6 8 Be Be es 
411 PRINT “Ma a ~ «a - > >» ~» -> ~ ~» x.’ 2 @" 
420 RETURN 
SOO PRINT “ fj () (6) fe) fe) fe) fe) ©) fe) fel fo) fe fe" = IF AT=- 1 


THEN PRINT "BI EI Be &" 

510 IF AT = O THEN PRINT “ BI me 

530 IF AT = 1 THEN PRINT "BI EI Ek OO" 

535 POKE 54276,0 : POKE 54276,129 + POKE 54273,20 

540 RETURN 

600 PRINT "BB POOMMOMMMOMOMMMOWO a © © w@& 
Mm@M@... Gath. 2) ([] G8 Ee. wk Oe" 

605 IF H = 1 THEN PRINT "OLOO#H#HNA @ 

610 IF H = — 1 THEN PRINT "OOO sl 
G5 88 88" 

615 IF H = O THEN PRINT "QO #1 &) & mi" 

616 POKE 54276,0 + POKE 54276,129 + POKE 54273,40 

620 RETURN | 

7OO PRINT “ B53 (ed fey Cod Cod fe} (ed Ce) Co} (ed ced Led ed ed) Cod Co) od 
fed fe] Ce) fe GEQEI EIB IB IIB IIIS IB Ie I Ie ee et 
BF] BF] 2) &) BF) BP) 2) BE) BP) BP) BB) BP"; 

710 IF U = — 1 THEN PRINT “@aUP . ." 

720 IF U = 1 THEN PRINT “ £SDOWN" 

725 POKE 54276,0 + POKE 54276,33 + POKE 54273,5 

730 RETURN 

1000 POKE 53281,5 + POKE 53280,0 


1005 PRINT “B§l@. 4. «4 « « MAP?" 
1010 PRINT "@ OM @ BEE E FEI Bl. * . lf CONTROL 
TOWER." 
1020 PRINT " & BF] B) B) B] 2) BI] FA in 8" 
1030 PRINT "&] B] #1] 2B] BB Bl) ied Ot: io RUNWAY" 
1050 PRINT “mB MMMM MMO OOO © HF 
BE) El] &) Mist — STARTING . POINT" 
( DI / 150 ) & 40 + POKE CS + 


5000 POKE 53280,0 = POKE 53281,0 * PRINT 


"G2 fel fe) fe} fe) fe) Ga” 7 
5010 IF AL > 50 THEN PRINT “YOU . MISSED . THE 


2 RUNWAY!" = GOTO 6000 

59020 IF AL < O THEN PRINT “"4-s YOU . CRASHEDt-+ " = 
GOTO 6000 

9030 IF H = — 1 AND RND ( 1) < «7 THEN PRINT 
“YOUR . LEFT . WING .HIT . THE . RUNWAY!" = 
GOTO 6000 


5040 IF H = 1 AND RND ( 1 ) < .7 THEN PRINT 
“YOUR . RIGHT . WING . HIT « THE « RUNWAY!" = 


GOTO 6000 

5050 IF AT = 1 THEN PRINT “**YOU . NOSE-DIVED! 8%" =; 
GOTO 6000 

9055 IF AT = — 1 THEN PRINT “*¥*#YOU . BELLY-FLOPPED 


'gx" = GOTO 6000 

5060 IF SP > 95 THEN PRINT “ ~ + YOU . CAME . IN . TOO 
aFAST! © ®" = GOTO 6000 

5065 IF U = — 1 THEN PRINT “YOU . DIDN’T . LOWER . YOUR 
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a UNDERCARRIAGE. " 


5070 IF F > 3 OR SP > 90 THEN PRINT “YOU . JUST . MADE 
alt!" = G6O0TO 6005 
5080 IF SP > 7O THEN PRINT "*%A , HARD . LANDING! 8%" =< 
GOTO 4005 
5090 IF SP > 60 THEN PRINT “" 6 SIA . GOOD . LANDING 
‘i fi" = GOTO 6005 
9100 PRINT " m&® THAT . WAS . A. PERFECT , LANDING!" 
5105 POKE 54276,0 + POKE 5342746,17 = FOR I = 1 TQ 100 
STEP 2 + POKE 34273,1 = NEXT 
9106 POKE 54273,0 
5110 PRINT “ © @aBRILLIANT! G8 . SUPER!" = GOTO 6005 
6000 POKE 34296,15 
6001 POKE 54276,0 = POKE 54276,129 + FOR I = 1 TO 10 
STEP .2 + POKE 34273,1 = NEXT = 
6002 FOR I = 30 TO 0 STEP — .5 + POKE 54273,1 = NEXT 
6003 FOR I = 1 TQ 300 = NEXT = POKE 54273,0 
6005 PRINT “ (e] [6] (©) fe] M§DO . YOU . WANT . ANOTHER . GO?" 
6010 GET AS ¢ “Y¥" THEN RUN 
6020 IF AS < > THEN GOTO 4010 
6030 PRINT “ [SIBYE." 
6040 END 
CHEXSUM 
A=-=PAAP 26 =eP3557 135=3316 
{=2292 4A=735 L326=3051 
2=S5 DOE SOH=2314A 127=26e4 
2=Pe33 S5=27e&A {323=2586 
E=7AFE SE =1762 139=153 
me 419ag SAa=P 727 146=2416 
Treese BS=P353 i4e=4diid 
P= reas &e&=17e22 142-727 
fMm=P7A5 BY=e2793 144=2337 
17=5582 TA=PFPAZH 145-2407 
iq=5S5°n ¥4=527 146=2395 
tR-41i17 fS=9753 147=3143 
1G=ai7g SM=1627 148=2e959" 
{7rBise 49=2512 155=1446 
1So=ASCOR 93=1375 L56=5476 
{a=P462 1HB=4aAig LS7=2757 
PSH=PA12 f@5=Eil 1S6=1119 
21-2252 LiM=177r 161=33993 
erteeet 12eM=4sai17 155-606 1 
Pp2=22¢e0 {e5=7r48 {7Aa=S269 
Sa=[154 [3@=913 LYS=3161 
2o=76P2 2e=1554 {FeE=57an 
2AcQy? L33=783 17S=2959e2 
25=46322 134=4655 {VA=3e14 
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ZiA=1423 

SUG =1A45 
255=4e57 
S56 =2422 
SEA=14a3 

AMA =9g92 

4@s-6ter 
41MA=-B8E0E 
S1,=1283 
4eea=1425 

SARNHLPES 
=tL@=1399 
33@=1395 
Ss5=1964 
Ss4@=143 

BOAM=eP497 
Faa=1e9¢e 
Big=e579 
SiLR=-168E7 
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ty 


ay) 


Slalom 


Can you complete the slope? If you can, how many points can you get? 


You gain points for passing through the posts and crash if you hit a tree or 
an ice crack. 


Watch the skier jump for joy if he completes the course or end up, 
upside-down in the snow if he trips on a tree! 


Your controls are: 
‘Z’ tilts the skis left 
‘M’ tilts the skis right 


Movement continues in the chosen direction until changed! 
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PROGRAM STRUCTURE 


INITIALIZATION 
Note: 6 clears collision register by PEEKing it 


FINISHED COURSE? 


READ KEY 
If course ending print finish line 


GO LEFT? 

GO RIGHT? 

CHECK FOR LEFT, RIGHT BOUNDARIES 
UPDATE POSITION OF SKIER 

HIT ANYTHING? € 

PRINT AND MOVE TREES 

FINISHED COURSE 

WHAT HAS BEEN HIT? 

SOUND ROUTINE 

PRINT FINISH LINE ROUTINE 

FINISHED ROUTINE WITH JUMPING SKIER 
ANOTHER GAME? 

MISSED FINISH POSTS 


DATA 
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LINES 
0—6 

10 

11 

12 

14 

15— 16 
17— 18 

19 

20— 80 

100 

101 — 108 
200 — 220 
300 — 310 
500 — 540 
550 — 580 
1000 — 1050 
9000 — 10040 


VARIABLES 

D = DIRECTION OF SKIER: 0 = LEFT, 1 = STRAIGHT, 2 = RIGHT 
V = VIDEO CHIP 

SL = LENGTH OF COURSE COVERED 

S = SCORE 

I, Q, A, Z = TEMPORARY STORAGE 

X = POSITION OF SKIER (HORIZONTAL) 

PE = KEY PRESSED 

X1 = TREE POSITION 

T = NO. OF TREES 
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SLALOM 


2) 


1 


2 


10 


11 
12 
14 
15 
16 
17 
i8 
19 
20 
25 
30 


31 


100 
101 


102 


POKE 55,255 = POKE 56,47 + POKE 53261,15 + 
POKE 53280,15 = PRINT "(" 

D=1 : X = 140 + V = 53248 + SL=0+ S=0 
POKE V + 21,1 

POKE 2040,193 + POKE V + 39,2 = 
FOR I = 0 TO 318 + READ @ : 
POKE 12288 + I,Q@ + NEXT 

POKE 54278,0 + POKE 54276,0 
POKE 54272,0 


4 


POKE 54273,0 : 


POKE 54296,10 = POKE 3542736,240 = POKE 54276,129 


FOR I = 12800 TO 12871 = READ A POKE I,A => 


NEXT <¢ 
POKE I,O0 = NEXT = POKE V,X = POKE V + 1,60 + 
Z = PEEK ( V + 31 ) 
§ =S + 1 2- St = SL + 1 = PRINT "SB OO) ©! © © & 
QE OQ OR OBOR OB OB QR OR QROR OR OR GE CUR CBS 
IF SL = 220 THEN 1000 
POKE 54273,0 = PE = PEEK ( 197 ) = 


IF SL = 180 THEN GOSUB 300 
IF PE = 12 AND D > O THEN D = D- 1: 
POKE 2040,192 + D + POKE 54273,100 
IF PE = 36 AND D < 2 THEN D =D +1 :¢ 
POKE 2040,192 + D = POKE 54273,100 


IF X < 45 THEN D= 1: X = 45 =; 
POKE 2040,192 + D = GOTO 18 

IF X > 239 THEN D = 1 + X = 239 =; 
POKE 2040,192 + D = GOTO 18 

Xx=X+(D-1) & 3 


POKE V,X 
IF PEEK ( V + 31) = 1 THEN 100 


IF RND ( 1) < .7 AND T = O AND SL < 175 THEN 
T= 1 : X1 = INT ¢( RND ( 1) *® 3O ) 
IF PE = 12 OR PE = 36 THEN POKE 54273,0 


IF RND ( 1) < .1 AND T = O AND SL < 175 THEN 
PRINT TAB( INT ( RND (1) & 30) ) 
sim iL: MBAAAAAAA tm 21" 

IF RND ( 1.) < .1 AND T = O AND SL < 175 THEN 
PRINT TAB( INT ( RND ( 1) * 30) ) 
"ES a ma & &" += GOTO 10 

IF T = O THEN PRINT = GOTO 10 

IF T = 1 THEN PRINT TAB( X1) 3“ BI BIGa oi" =: 
T = 2 + GOTO 10 

IF T = 2 THEN PRINT TAB( X1 ) “BEB GG LEU" : 
T = 3 + GOTO 10 

IF T = 3 THEN PRINT TAB( X1 ) “MGS £2 £2 fo": 
T = 4 + GOTO 10 

IF T = 4 THEN PRINT TAB( X1 ) “BR. FE" = 
T = 0 +: GOTO 10 

IF SL > 197 THEN 500 

IF PEEK ( 1104 + ( X — 20) / @) = 1 OR 
PEEK ( 1405 + ( X - 20) 7 8) = 1 THEN 
GOTO 20 

IF PEEK ( 1106 + ( X — 20 ) / B ) = 1 THEN 
GOTO 20 
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POKE V + 24,28 + FOR I = 12544 TO 12551 


103 IF PEEK ( 1144 + ( X —- 20) / 8) = 1 OR 
PEEK ( 1145 + ¢( X — 20) / 8) = 1 THEN 
GOTO 200 

104 IF PEEK ( 1146 + ( X - 20) 7/8) 
GOTO 200 

105 IF PEEK ( 1064 + ( X - 20) /@) = 1 OR 
PEEK ( 1065 + ( X —- 2G) / 8) = 1 THEN 
GOTO 20 

106 IF PEEK ( 1066 + ( X - 20) / 8) = 1 THEN 
GOTO 20 

107 IF PEEK ( 1024 + ( X — 20) / 8) = 1 OR 
PEEK ( 1025 + ( X — 20) / 8) = 1 THEN 
GOTO 20 

108 IF PEEK ( 1026 + ( X — 20) / 8) = 1 THEN 
GOTO 200 

110 POKE 54296,15 

115 POKE 2040,196 = FOR I = 60 TO 170 
POKE 54273,175 -— I + POKE V + 1,I = NEXT 

116 POKE 54273,1 

120 POKE 2040,195 

130 FOR I = 1 TO 700 = NEXT = POKE 54273,0 

140 POKE V,0 = POKE V + 1,0 = POKE 53280,0 : 
POKE 53281,0 + POKE V + 24,20 

150 PRINT “€2 GSHARD . LUCK . YOU’ VE . CRASHED!" 

160 PRINT “ (2) (©) (0 fo] m& YOU . COMPLETED [a" 
INT ¢( SL / 2) 3" %m.OF . THE" 

170 PRINT "COURSE. EBYOU . SCORED , “ 
INT ( S / 4) “POINTS.” 

180 GOTO 550 

200 S = § * 2 + POKE 54296,15 = POKE 54276,0 : 
POKE 54276,33 : FOR I = 20 TO 50 : 
POKE 54273,I = NEXT 

210 POKE 54296,15 + POKE 54276,0 = POKE 54276,129 : 
POKE 54273,0 

220 GOTO 20 

300 PRINT " ©) (2 Bl B®] BB) ©] 1) BI] BF) 2) BP) BP) we OO 
BE OM SE See Sessa cen ses" 

310 RETURN 

500 POKE 54273,10 + POKE 2040,193 =: 
FOR I = 11705 + FOR J = 1 TO 20 STEP 1: 
FOR Z = 1 TO 20 = NEXT 

510 POKE v + 1,50 + J + NEXT J = FOR J = 20 TO1 
STEP — 1 + FOR Z = 1 TO 20 = NEXT = 
POKE Vv + 1,50 + J + NEXT J,I 

515 FOR I = 1 TO 240 STEP 5 = POKE 54273,1 = NEXT : 
POKE 54273,0 

520 POKE V,O + POKE V + 1,0 = POKE 53280,0 
POKE 53281,0 = POKE V + 24,20 

530 PRINT “2 taYOU’ VE ,. COMPLETED . THE . COURSE!" 

540 PRINT “ (e) () @BYOU . SCORED. &"S S ; 
“ 8. POINTS. “ 

550 PRINT " (] () @DO . YOU . WANT . TO . PLAY 1 AGAIN?” 

560 GET AS = IF AS = “Y" THEN RUN 


i 


1 THEN 


4b 


4b 4b 


a 
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970 

S75 

080 
1000 
1010 
1020 
1030 
1040 
1050 
9000 
9010 


9020 
9030 


97040 


7050 
9060 


9070 


9080 
9100 


91190 
97120 
9160 
9170 
9180 


10000 
10010 


10020 
10030 


10040 


IF AS < > “"N" THEN 560 

PRINT " (1 (4) GIBYE” 

END 

FOR I = 1 TO 240 = POKE 54273,1 = NEXT = 


POKE 54273,0 = POKE 53280,0 = POKE 332861,0 


POKE V,0 = POKE V + 1,0 + POKE V + 24,20 = 
PRINT "fQ GHHA . HA!" 


PRINT " (9 ®& YOU . MISSED , THE , FINISH , POST!" 


PRINT “ (] EABAD . LUCK. " 
PRINT " [eo] M@§YOU . SCORED . "3 INT ( S/4) 3 "™ 
GOTO 550 
DATA 0,56, 0, 0,56, 0,0, 56,0,0, 16,0,0, 124 
50,0, 187,90, 1,57,0,1,57,0,0, 185 
DATA 0,0, 145, 0,0, 36, 0,0, 68,0,0, 66,0,0 
,34,0,0,35,0,0,50,0,0, 36,0,0,72,0 
DATA 0, 144,0,1, 32,0, 2,64,0,99 
DATA 0,54, 0,0,546,0,0,56,0,0,16,0,0,124 
,0,0,187,0,1,57,0,1,57,0,0, 185 
DATA 0,0, 165, 0,0, 36,0,0,68,0,0, 66,0 
50, 42,0,0,38,0,0,50,0,0, 33,0,0, 44,128 
DATA 0, 128,64, 1,0,0,2,0,0,99 
DATA 0,56,0,0,56,0,0,56,0,0,16,0,0 
,124,0,0,187,0,1,57,0,1,57,0,0, 185 
DATA 0,0, 165,0, 0, 36,0, 0, 468, 0,0, 64,0 
50, 42,0, 0, 38,0,0,98,0,0, 33,0, 0, 16, 128 
DATA 0,8, 44, 0,4, 32,0, 2, 16,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,0,0, 16,0,9,8,0, 14,4, 0, 32, 2,0 
,64,1,0,128,0, 129,0, 2, 66, 44 
DATA 0,0,0, 0, 255, 0,99 
DATA 2,0,0,1,0,0,0,128, 64 
DATA 0,64, 128,0,33,0,0,50,0,0,38,0,0 
5 42,0, 0,66, 0,0, 68, 0,0, 36,0,0, 165,0 
DATA 0,185,0,1,57,0,1,57,0,0, 187,0,0 
,124,0,0,16,0,0,56, 0,0, 56,0,0,56,0 
DATA 255, 255, 255, 255, 255, 255, 255, 255 
DATA 0,0, 0,59, 255, 231, 0,0, 128, 192, 224 
, 240, 128, 128,128, 128, 3, 3,3, 3,355,355 
DATA 192, 192, 192, 192, 192, 192, 192, 192 
DATA 0,0, 24, 24, 60, 126, 126, 255, 3, 3,7,15 
531,43, 63, 127, 192, 192, 224, 240, 240 
DATA 249, 252, 252, 60, 60, 60, 60, 40, 60, 60, 60 
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4 POINTS." 


CHEXSUM 


28 


we 
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Fruit Machine 


A version of the old favourite. It costs you £10 a go and you can win up to 
£100. Pull the handle and try your luck! 


The program contains some nice graphics. All instructions are included. 


mee ee eee ee —e 
. : :  y ee on 
es H 


1 
ee ee 
n 


STRAWBERRY 


CHERRY 
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PROGRAM STRUCTURE 
SPRITE INITIALIZATION 
DRAW MACHINE 

GET KEY: CONTINUE OR END 
CALL ‘HANDLE DOWN’ 

GET 3 RANDOM FRUITS 
POSITION FRUITS 
CALCULATE PRIZE 

DISPLAY FRUITS 

DRAW HANDLE UP 
CALCULATE WALLET 

IF BROKE, CONTINUE OR END 
DRAW ‘HANDLE DOWN’ 


SPRITE DATA 


VARIABLES 
M = MONEY 


W = PRIZE MONEY FOR CURRENT SPIN 


V = SPRITE POINTER 


R(X) = FRUIT ARRAY (X = 1, 2, or3) 
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LINES 

1— 10 

20— 115 
120 

122 
125 — 140 
141— 142 
160 — 170 
171— 175 
178 — 180 
190 — 200 
210 — 5000 
8000 — 8030 
9000 — 9080 


FRUIT MACHINE 


1M = 30 7 W=0 
ZDIMR (3) + V = 53248 + POKE V + 21,7 
3 POKE 2040,13 + POKE 2041,14 = POKE 2042,15 
+ POKE V + 39,2 = POKE V + 40,5 + POKE V + 41,9 
4 FOR N = 0 TO 190 = READ @ = POKE 832 + N,Q = NEXT 
5 POKE V,108 = POKE V + 1,100 + POKE V + 2,160 
¢ POKE V + 3,100 + POKE V + 4,210 
+ POKE V + 5,100 
10 POKE 53281,0 + POKE 53280,0 
20 PRINT “ €2 EAMONEY . £“ 
30 PRINT “ (eo) (e iu 


ce as > da cae RR a ce ea as 

S1 PRINT “@. «0 « «2 » o ld wo wm wm em eh ke ee le lle 

32 PRINT “@. «2 «2 «2 «» « Ig ad 2 a2 oe eo & 2 &% He % & 

33 PRINT "Gm. «4 «2 «2 «0 «20 Ww 2 2 ow Mw ow 4 led 
|_| a < 

34 PRINT "Tm. «4 «2 « «2 «0 Wn 2 ok oe WW a sw ow led 
Mee ew A ea I a a A ae es a ca es a a” 

35 PRINT "Mi . 2 2 «2 «2» «0 Id a «2 2 2 MW 1 a ow lw 
mw. ww kw lle a ok M@ a ow ii al 

36 FOR I = 1 T0 7 

37 PRINT “Gm. «0 «1 «2 o» « be 6 2 4 4 me me me ee 

38 NEXT 

39 PRINT “ E39 fel fe) fe} fe fe] fe] fe] 08 8 Be Be Ea ie 
o » MGR BRigd . 2. 1. MMR Ii. OOF. 
Bh. URE. 

42 PRINT "HAMM OOM © © © ot © el el © 
BER . GIRS EGE. GW HW. RE 

43 PRINT "GH. 4. 4 . . . BB... = 

44 PRINT "ii. EH. . Hu. HH. 

45 PRINT "BB. «2 a ~.8. HEB. 
o Be. . MACH 

46 PRINT " (0 & YOU .WIN . x" 

100 PRINT “SRB BEE EIBPII. . . . . S808 88 8 "SM 

110 PRINT ™ (ed [ey feo fe) fe) feo fe) fe) fe) fe) Be) &) Be) B&B) BB BB) 
Blam ’C’ . TO. CARRY . ON (1) 08 08 08 88 08 28 8 Be 


Some me OQ? . TO. Quit" 

115 POKE 198,0 

120 GET At =: IF AS = "Q" THEN 5000 

121 IF A® < > "C" THEN 120 

122 GOSUB 8000 

125 FOR I = 1 103 

130 R ¢( I) = INT ( RND (1) & 
¢ IF RND ( 1) < .7 AND R 
THEN 130 

131 IF R ¢ I ) = 3 AND RND ( 1) < .6 THEN 130 

140 NEXT 

141 IF I = 2 THEN PRINT “ &9 () () [el [el (ed (©) BI El &) 


3 +1) 
( Il) = 
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142 


140 


161 


162 


163 


164 


165 


166 


170 
171 
172 
173 
174 
175 
178 


179 


180 


190 
200 
210 
220 
230 
240 
2350 
2000 
9010 
8000 


8010 


8020 
8028 
8030 
9000 


9010 
9015 
9020 
9030 


Ly 
o 
o 
a 
us 
us 


3 

IF I = 3 THEN PRINT "8 © © © © © © ©) BB) BF) BF) B) 
2] &] 2) 2) 2) ) 2) 2) 2) 2) 2) BB) 2) 2) BB"; 

IF R ¢ 1) = 1 AND R (2) = 1 ANDR (3) =1 
THEN W = 10 

IF R ¢ 1) = 1 AND R ( 2) = 1 ANDR (3) < > 1 
THEN W= 5 

IF R (1) = 2 ANDR ( 2) = 2 ANDR (3) = 3 
THEN W = 20 

IF R¢ 1) << > 2 ANDR (2) = 2 
AND R ( 3) < > 2 THEN W = 15 

IF R¢ 1) = 3 ANDR (2) = 3 ANDR(S) = 3 
THEN W = 100 

IF R ¢ 1) = 3 ANDR (2) 2 3S ANDR (3S) KC OS 
THEN W = 50 

IF R¢ 1) ¢ > 3 ANDR (2) = 3 
AND R ( 3) < > 3 THEN W = 50 

IF W< > O AND RND ( 1) < .8 THEN 125 

POKE V + 21,7 7 FOR Z = 1 T0 3 

IF R ¢( Z ) = 1 THEN POKE V + 38 + Z,2 

IF R ¢ Z) = 2 THEN POKE V + 38 + 2Z,5 

IF R ¢ Z) = 3 THEN POKE V + 38 + 7,9 

POKE 2Oo7 + Z,R €¢ Z) + 12 + NEXT 

PRINT “HMMM MMM omMoe wee oe © 
BE GE OE ER EE GREER). www. OO. wel. © 
meee. o » CORO REHE. 2 a” 

PRINT “ G3 fe} fe} (Ce) fe) fe) fe] (eo (0 0) 0 0 0 Ea i 
o~ . M@lBE RR GG. 2 2. MOOI. ene. oO 
GG . BU wa 

PRINT "HMM MMM AMaMoOOmMea@ ef © 2 & 
CBGEOBGROROQE 1 BIE IR IB IR OR 18 8 pees | Be 

M= M™ - 190 


M=™M+W se W= 0 += IF M > O THEN GOTO 1900 
PRINT “ &3 ES YOUR . BROKE!!!" 
PRINT “ BWANT . ANOTHER . GAME?" 


GET AS = IF AS = "Y" THEN RUN 

IF AS < > “"N" THEN 230 

END 

PRINT “€2" = PRINT “BYE . BYE , THEN" 
END 


PRINT “ 69 (9 fe] (2 () ) fe fo) (2) BE ew 
o (ORME ME. 2. w. OE. ee. ON 8 
f=] 62 86 88 88 , 


PRINT “ Bed (ey Cod Cod Cel fed (ed fed fe) fel fe) (ed fe) (ed fe) 0 ee 
BEBE SR URER IIS. 2. 1. «OMe. BE. Oa. 
MFA. 2. 2. OREM ww" 

POKE V + 21,0 


RETURN 

DATA 0,0, 96,0, 0, 224, 0, 1, 224,0,2, 224,0,2, 96,0, 
4,32,0,8,0,0,8,0, 0, 28,0,0,62 

DATA 0,0, 127, 0,0, 255, 128, 1, 255, 192 

DATA 1,255, 192, 1, 255, 192, 1, 255, 192, 0, 255, 128, 0 

DATA 127,0,0, 62,0, 0, 28,0,0,0,0, 99 

DATA 0,1,128,0, 2,0,0,4,0,0, 4,0, 0, 63, 0,0, 255, 
128, 7, 255, 192, 15, 255, 224, 31, 255 
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9040 


9050 


9060 


9070 


9080 


DATA 240, 63, 255, 248, 43, 255, 248, 63, 255, 248, 63, 


255, 248, 31, 255, 240, 31, 255, 240 


DATA 31,255, 192, 15, 255, 192, 7, 255, 128, 3, 255, 0,1, 


255,0,0, 40,0, 99 


DATA 0,0,0,0, 24,0,0, 34, 0,0, 36, 0,0, 24,0,0, 60,0, 
0,127,9, 0, 255, 128, 0, 255, 128 
DATA 0,255, 128, 1, 255, 192, 1, 255, 192, 3, 255, 224, 3, 
255, 224, 7, 255, 240, 7, 255, 240 
DATA 7,255, 240, 15, 255, 248, 127, 255, 255, 43, 


255, 254, 0, 24,0 


CHEXSUM 


| 
dob 
as 


i=; 

P=170H5 
2=29e7 
4=2108 
Ss=4411 
iA8= irl 
P@=3d0e 

SOH=1338 
Z2il=1ess 
Pe=1S8sea 
2S=e4d35 
Z4=24935 
S5=+2425 
SEER 

=Y=1388 
Sasi 34 

S9=49SE 
“22-3097 


Ne) 
os 


aoa (a ia 
VW 


i‘, 


my ed 


7 
fo ofa Te 
j 


aa 


my al 

"i 

OO OO -, 
pe 
Tm tf co ro 


™ 
| ee || 
CIT eee 
wT) 
's) 
0) 


TM fs 


T 
fd im ee 


Ce eS 


oe to MO Ww 
a 


fl m if 


ry 


LA oes 
i 


ore ee ee Oe 8 
a) 
m 


" 


' 


tom) Mo 


wm EY 
il 


a ea ne ce 
my ~~) oO 


Mem 
rl 


ds 


ta 
ee PY 
iT 


N 
N) 
LO 


L4e2=2850 
LE@=e24o5 
LE L=2#S36 
iSe=24o8 
le2s=-e31! 
fe4os2556 
LAR=2695 
:E6 +2315 
iPe=17ER 
LYi=zilseas 
lve=-1r4s 
1PRB=1745 
1Y4=1748 
tir oF idhe 
1PYor444eA 
{PTS-+4SS6 
LSB="AaHS 
LAB-E16 
Se@h=Peai 
w@sM=L1irs 
Fe@A=1LER? 
ePeah=lees 
S4OQ=1128 
moM=1ea 
THARa=1lbe4 
SAiA=a=ieg 
Saaw=4a4r 
SQis=457A 
SH2GB=616 
Thee =2e4 
THRAHA142 
SAGAR =4eal 
A@1A=1°6e 


ep) 
oO) 


ROLE =P4ee 
AASA-1e sr 
Sa2h=4497 
Sd =49ge7 
Sik AnSeal 
QAPER=4e74 
Se YB=4437 
od Tt Dik 


SPRITE 


BELL 


Sea Harrier 


This is an exciting up-to-date warfare game! 


You are the pilot of a carrier-based aircraft and your mission is to destroy 
an invading submarine using depth charges. 


The enemy submarine must be destroyed in one minute, by dropping a 
depth charge on him, or he will escape to attack your country. When 
dropping your charges you must be careful not to detonate a nuclear 
mine placed by your own forces! The submarine will change depth and 
speed trying to avoid your assault. 


On the right is you fuel gauge, if it reaches the top you have run out of fuel 
and will crash. To prevent this you can return to your carrier to replenish 
your fuel and launch another attack on the sub. Be careful to land gently 
and not crash. 


Your controls are: ‘Z’ to move up ‘>’ to go right 
‘C’ tomove down = ‘space bar’ to drop 
‘< ’ to go left depth charge 
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PROGRAM STRUCTURE 
INITIALIZATION 

DECREMENT FUEL GAUGE 
MOVE SUBMARINE 

MOVE HARRIER — INPUT KEY 
FIRE CHARGE 

IF FIRED MOVE THE CHARGE 
MOVE UP 

MOVE LEFT 

MOVE RIGHT 

MOVE DOWN, CHECK IF HIT SEA 
MOVE DOWN, CHECK IF HIT SHIP 
CHECK TIME 

MOVE CHARGE 

HIT SUBMARINE? 

HIT MINE? 

DESTROYED SUBMARINE 

HIT NUCLEAR MINE 

TIME UP? 

CRASHED INTO SHIP? 
CRASHED INTO SEA? 

START AGAIN? 
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59 

100 

125 

126 — 130 
200 — 260 
300 — 360 
400 — 450 
500 — 550 
5000 — 5040 
5050 — 5090 


SPRITE 
SUBMARINE 
SPRITE 
BOMB 
(PLAYER) 


HORIZONTAL, VERTICAL FOR SPRITE #3 (CHARGE) 


HORIZONTAL, VERTICAL FOR SPRITE#1 (SUB) 
TIME LEFT 


HORIZONTAL, VERTICAL FOR SPRITE #0 (HARRIER) 


VIDEO CHIP 
SOUND CHIP 


VARIABLES 
V 
CO 
Ky 
x1, Y1 
X2, Y2 
TI$ 
SPRITE 
HARRIER 
(PLAYER) 
SPRITE 
MINE 
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SEA HARRIER 


O POKE 55,255 + POKE 56,47 = PRINT “Q" = V 93248 


+ CO = 54272 + POKE 53281,0 + POKE 53280,2 
¢ F = 10 

1 FOR I = 55816 TO 56296 + POKE I,6 
¢ POKE I - CO,160 + NEXT + G=0 


POKE V + 21,63 + POKE 2040,192 : 
? POKE 2042,194 : 
POKE 2044,195 = POKE 

: POKE V + 40,14 =: 
+ POKE V + 42,21 
POKE V + 43,7 + POKE V 
FOR I = 0 To 318 + 
NEXT + X = 24 
133 + X1 = 29 3 
INT ( RND ( 1 ) 
POKE V + 1,Y + 
POKE Vv + 3,Y1 
J = 0 TO 24 + FOR I 
+ POKE I + J * 40,2 ¢ 
: NEXT I,J 
POKE V + 5,160 + INT ( RND ( 1) #® 40 ) 
¢ POKE V + 4,70 + INT ¢( RND ( 1) ® 180 ) 
PRINT “ B23 (ed Ce] fed fo} Co) (od (ol (0) fo) (el fel GS id 3 Oe ick 
a. a. 2 @ Pl ici" + POKE V + 8,210 = POKE V + 9,55 
+ GOSUB 80 
POKE 54296,1 + 
+ TI = 


POKE 2041,193 
POKE 2043,195 = POKE V + 44,7 
2045,196 + POKE V + 39,1 
POKE V + 41,0 


+ 29,18 > 
READ @ - 


POKE V + 23,16 
POKE 12288 + I,Q 


—— 


140 
) + POKE v,Xx 
+ POKE Vv + 2,X1 


Yl = 
x 60 
= 1 


D 


> a hb ff ae ee 


99330 TO 55335 
POKE I + J ¥ 40 — €O,1609 


a 


POKE 54278, 240 : 

"000000" 

PRINT ™“ &3 (] fe] © 68 88 68 BG BG BS lag TIME" 

PRINT “ 69 (ed fe] fe] §8 S818 "S RIGHTS ( TI#,2 > 
+ POKE 55652 + INT ( F ) & 40,4 

Xi +D* 2: IF X1 > 240 
THEN D = INT ( RND ( 1) & 3 - 3 
: Yi = 160 + INT ( RND ( 1) *% 60 

IF Xi < 28 THEN D = INT ¢ RND ( 1 ) 
¢ Y1 = 160 + INT ( RND ( 1) *® 60 

POKE V + 2,X1 = POKE V + 3,Y1 

PE = PEEK ( 197 ) 

IF PE = 60 AND X > 60 AND X2 
‘+ ¥2=Y¥+8+ Gl =O2 F 
¢ POKE 53273, 200 

IF X2 > 0 THEN GOSUB 100 

IF F < 1 THEN 53 

IF PE < > 12 AND PE < > 20 AND PE 
AND PE < > 44 THEN POKE 54272,0 
+ GOTO 56 


POKE 54276,129 


11 


12 Xi 


3 ) 
= ) 


) 
33+ 1) 
) 


OQ THEN X2 
F pari al 


< > 47 
+ POKE 54273,0 


POKE 54273,108 = 
IF PE Y 
x 
X 
F 


-O06 = I 


POKE 534272, 223 
> SO THEN Y 
> 28 THEN X 
< 2350 THEN X 
PE 20 THEN 


= 


Y + G = GOTO S 
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6 


IF Y > 140 THEN S000 


37 IF X > 25 AND X < S59 AND Y > 133 AND G > 1.3 
THEN 5S0Q 
08 IF X > 25 AND X < 59 AND Y > 133 THEN G = O 
> F = 10 + Y = 133 += GOSUB 80 
59 POKE V,X = POKE V + 1,Y + IF TI% = "000100" 
THEN 400 
60 GOTO 11 
80 PRINT “ &3 (ed ce) fe) fe) ) (e fe} (eo (fe) 0 Be Oe 0 ie td ed a 


@5 RETURN 
100 X2 = X2 + .5 = IF Y2 > 140 THEN Y2 = Y2 + G1 / 2 
102 IF Y2 < 141 THEN Y2 = Y2 + Gi 
105 IF G1 = 0 THEN POKE 54272,0 + POKE 54273,40 
106 Gi = G1 + .3 
110 POKE V + 7,Y2 
112 POKE V + 6,X2 
120 IF Y2 > 230 THEN Y2 = 0 = X2 = 0 = POKE V + 7,0 
+ G1 = 0 
125 IF PEEK ( V + 30 ) 
126 IF PEEK ( V + 30) 
130 RETURN 
200 POKE V + 2,0 + POKE V + 3,0 = POKE V + 10,Xx1 
¢ POKE V + 11,Y1 + POKE 54296,15 
210 FOR I = 70 TO 10 STEP — .3 = POKE 54273,1 = NEXT 
+ POKE 54273,0 + POKE 54272,0 
220 FOR I = 1 TO 11 + POKE V + 1,0 = NEXT 
230 POKE V + 10,0 + POKE V + 11,0 
+ PRINT " (2 [el tel ig YOU’ VE . DESTROYED . THE 


10 THEN 200 
12 THEN 300 


240 PRINT “ (@] () GaWELL . DONE!" 

250 PRINT “(] @YOUR . TIME , WAS . "3 RIGHTS ( TI1#,2 ) 
3" . SECONDS" | « 

260 GOTO 5050 

300 FOR I = 1 TO 11 = POKE V + I,0 = NEXT 
¢ POKE V + 29,32 + POKE V + 23,32 

310 POKE V + 2,0 ¢ POKE V + 3,0 + POKE V + 10,X2 
> POKE V + 11,Y2 + POKE 54296,15 
: POKE 53281,8 

320 FOR I = 90 TO O STEP — .2 + POKE 54273,I 
+ POKE 53280,I / 10 + NEXT + POKE 54273,0 
+ POKE 54272,0 

325 POKE 53280,0 + POKE 53281,0 + POKE V + 29,0 
+ POKE V + 23,0 

330 POKE V + 10,0 + POKE V + 11,0 
* PRINT “ €2 (©) (fo) laf YOU’ VE J. HIT . THE 


3090 PRINT " (9 mm YOU . LASTED , FOR . “5 RIGHT? ( TI%,2 ) 
3°" « SECONDS." 

360 GOTO 5050 

400 POKE 34296,15 = POKE 354276,0 = POKE 54276, 33 

410 FOR I = 255 TO O STEP —- 2 = POKE %4273,1 = NEXT 
+ POKE 54273,0 + PQOKE 54272,0 

420 FOR I = 0 TO 11 += POKE V + 1,0 = NEXT 
+ POKE 53280,0 + POKE 53281,0 
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PRINT "2 (0 (ef ilgYOU’VE . RUN , OUT . OF . TIME!" 
PRINT “(2 fe] @) KATHE . SUB . WILL . GO .ON .TO 
2 DESTROY . YOUR. «2 4 4 «1 4 COUNTRY! !!t!'" 
PRINT “ (#] (] (0 YOU . BUNGLING . FOOL! !!'!:" 
GOTO 5050 
POKE V,O =: POKE V + 1,0 + POKE V + 10,X 
+ POKE V + 11,Y ¢ POKE 54296,15 
FOR I = 70 TO 20 STEP — .2 + POKE 54273,1 
+ NEXT + POKE 54273,0 + POKE 54272,0 
FOR I = 1 TO ii + POKE V + I,0 * NEXT 
POKE V + 10.0 = POKE V + 11.0 ¢ PRINT " 2 [e) [el tayvou’ VE 


PRINT * fe] (TOUGH . LUCK!" 
GOTO 5050 
POKE V,O * POKE V + 1,0 + POKE V + 10,X 
+ POKE V + 11,Y = POKE 54296,15 
FOR I = 80 TO 30 STEP —- .2 + POKE 54273, 1 
+ NEXT * POKE 54273,0 = POKE 54272,0 
FOR I = 1 TO 11 + POKE V + 1,0 += NEXT 
POKE V + 10,0 = POKE V + 11,0 = PRINT “" EQ fe) (9 YOU’ VE 


PRINT " (6} (9 GEHARD . LINES." 

PRINT “ Bed Ce} Co} (ed (ed fe} fed fed fed fe) fe) fe) fe) fe) fe) & DO . YOU 
a2 WANT . ANOTHER . GO?" 

GET AS = IF AS = “Y" THEN RUN 


IF AS < > “N" THEN 5060 
PRINT " (9 (©) @BBYE . BYE. 
END 


DATA 0,0,0,0,0,0, 192,0,0, 192,0,0, 240,0,0, 
252, 3,0, 255, 255, 192, 255, 255, 252 

DATA 63,255, 255,63, 255, 240, 31, 240,0, 63, 252,0, 
63,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,56,0,0,124, 
0,3, 255,192,127, 255 : 

DATA 252, 255, 255, 255, 255, 255, 252, 15, 255, 224,04, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,,0,0,0,0,4,8,16,2,8,32,1,8, 
64,0, 136, 128,0,127,0,0,127,0 

DATA 7,255, 240, 0, 127,0,0, 127, 0,0, 136, 128,1,8, 
64,2,8,352,4,8 

DATA 14,0,0,0,0,0,0,0,0,0,0,0,0,99 | 

DATA 0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,4, 
0, 28,0,0,62,0,0,127,0,0 

DATA 127,0,0,127,0,0,62,0,9, 28,0,0,0,9,0,0,0,4, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 99, 128,0,32,18,1,98,233,0,4, 99,63, 1, 48, 
B4,32,19,8,1,89, 109, 22 

DATA 8, 12,38,9,52, 149, 128, 243, 211,99,435,0,128, 
72,1,19,8,9,89, 2,22 

DATA 99,0,2,18, 76,149, 2,64,1,99,4,7,91,14,0, 
19,8,54,1,109, 22 
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Cats & Dogs 


It's raining cats and dogs! You have to catch suicidal cats and dogs but if 
you don't they die. For every third miss, a cross will appear, but you are 
only allowed three crosses. 


Controls are: ‘Z’ to move your animal lover to the left and ‘M’ to move 
him/her right. 
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PROGRAM STRUCTURE 
INITIALIZATION 


CHECK ANIMALS AND MOVEMENT USING 


KEYS PRESSED 
CAUGHT ANYTHING? YES: SCORE 
NOISE 
MOVE MAN 
NOISE 
IF THIS ANIMAL NOT ON SCREEN 
PUT ONE ON (12% CHANCE) 
ELSE MOVE HIM DOWN 
IF HIT GROUND 
PICTURE 
SOUND 
IF 3 HIT: TUNE AND CROSS 
ELSE IF CAUGHT 
NOISE 
SCORE AND PICTURE 
NEXT ANIMAL 
DO ALL AGAIN 
TUNE AND CROSS FOR HIT ANIMALS 
IF 3 DEAD 
TUNE AND MESSAGES 
DATA 
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LINES 
Oo—9g9 


11—14 


15 

20 — 22 
25 — 30 

60 

65 

66 — 69 
70 — 85 

86 

90 

91—92 

93 

94 

95 — 97 
98 — 100 
105 — 110 
120 

1000 — 1040 
1050 
2000 — 2110 


8000 — 9045 


VARIABLES 

LL = LIVES LOST 

P = YOUR POSITION 

L = ARRAY POSITION OF ANIMALS 
SP = ARRAY WHETHER CAT OR DOG 
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CATS AND DOGS 


OL = 1 + POKE 55,255 = POKE 56,27 = V = 53248 
+ FOR I = 1 TO 54 = READ R = NEXT 

1 PRINT "€2" += POKE V + 32,3 = POKE V + 33,1 
+ FOR I = 12544 TO 12551 = POKE 1,0 + NEXT 
> POKE V + 24,28 

2 POKE 54296,10 = POKE 54276,0 = POKE 54278, 240 
+ FOR I = 12288 TO 12407 = READ R = POKE I,R 
+ NEXT 


3 POKE 54290,0 : POKE 54292, 240 
4P= 117 DIML (3) ,8P (3) = FORI=11T03 
* tL ¢ I) =0 + SP (I) = 0 = NEXT 
5S = 0: SC = 1024 : CO = 54272 +: CS = 55296 
6 PRINT 
“HOM MMMM @g OO OO 4 © © & @ iSHI 
BE 88 88 88) KM fe) 68 SENN ©) 88 BEN" 
+ FOR I = 1824 TO 2023 
7 POKE I + CO,2 + POKE I,4 + NEXT = POKE 198,0 
POKE V + 33,0 + POKE V + 32, RND (1) 8 16 
: IF AS = “" THEN 8 


10 FOR I = 1 7T03 
12 Pl =P + M = PEEK ( 197 ) 
: IF M < > 12 AND M < > 36 THEN 50 
13 Pl = P1 + ( M= 36) &® ( Pl ¢< 38) - (M= 12) 
& ( P1 > 1°) + IF Pi = P THEN 50 
14 PE = PEEK ( 1744 + Pi ) 
¢ IF PE > 5 AND PE < 32 THEN 50 
15 PE = PEEK ( 1784 + Pi ) 
: IF PE < > 32 THEN DS = S / 2 
+ IF S < 60 THEN S = 8 8% 2 ¢ GOTO 640 
20 POKE 54277,0 + POKE 54284,240 = POKE 54274,0 
s POKE 54273,40 = POKE 54272, 200 
21 POKE 54276,129 + POKE 54290,0 
22 POKE 54291,0 = POKE 54292,240 = POKE 54287,57 
¢ POKE 54286,172 + POKE 54290,17 
25 POKE 1744 + P,32 =: POKE 1784 + P,32 
s POKE 1704 + P,32 
30 POKE 1744 + P1 + CO,3 + POKE 1744 + P1,0 
> POKE 1784 + P1 + CO,3 + POKE 1784 + P1,1 
SO P = Pl 
60 POKE 54273,0 + POKE 54272,0 + POKE 54287,0 
: POKE 54286,0 
65 IF L ¢ I) < > O THEN 70 
66 IF RND ( 1) > .12 THEN 110 
67 tL ¢ I) = 1146 + INT ( RND ( 1) * 36) 
+ POKE 54277,0 + POKE 54286,240 + POKE 54276,0 
: POKE 54276,129 
68 POKE 54273,72 + FOR J = 254 TO 235 STEP - .5 
¢ POKE 54272,J * NEXT + POKE 54272,0 
s POKE 54273,0 


69 SP ( I >) = INT ( RND (1) *® 2) 
7QOL1 =t ¢7T») 

80 Li = Li + 40 

85 PE = PEEK ( L1 + 40 ) 
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86 IF PE < > 4 AND PE < > 5 THEN 95 

90 POKE Li + 40,4 + POKE L1 + CO,4 + SP (I ) 
¢ POKE L1,5 + POKEL (I) ,12 

91 POKE 54277,0 : POKE 54286,240 + POKE 54276,0 
+: POKE 54276,129 + POKE’ 54273, 34 

92 FOR J = 150 TO 135 STEP - 1 + POKE 54272,J 
+ NEXT + POKE 54272,0 + LL =LL +1 

93 POKEL (1) ,322:L¢1)=0 
¢ IF LL = 3 THEN 1000 

94 GOTO 110 

95 IF PE < > O AND PEEK ( Li ) < > O THEN 100 

96 POKE L ( I) ,7 ? POKE 54296,10 + POKE 54291,0 
+ POKE 54290,0 + POKE 54292, 240 
+ POKE 54290, 33 

97 POKE 54287,64 = POKE 54286,188 =: FOR J = 1 TO 50 
+ NEXT * POKE 54287,0 = POKE 54286,0 

98 POKEL (I) ,322:L¢1)=0 
>S=(S+ (tL +10))+¢28L) 
+ GOTO 110 

100 POKE L (I ) ,32 +: POKE L1 + CO,4 + SP (I >) 
+ POKE L1,2 + SP (I ) 

105 L ¢ I) =Li 


110 NEXT 
120 GOTO 10 
1000 L L + 1 + POKE 54287,0 = POKE 54276,0 


: POKE 54283,0 = POKE 54272,0 + RESTORE 
+ POKE 54296,15 
1010 PRINT “§3"3 TAB( 18 + (L* 4) ) 3"F" 
+ POKE 54276,0 = POKE 54290,0 = POKE 54292,0 
+ POKE 54278,0 
1015 POKE V + 32,0 =: POKE 54291,9 = POKE 54277,96 
1020 FOR Z = 1 TO 18 + READ A,B,LE + Bi = B* 2+ 1 
2 Al =A * 2 +: IF B1 > 255 THEN Al = Al + 1 
+ Bl = Bl - 257 
1025 POKE 54287,A =: POKE 54286,B + POKE 54273,A1 
+ POKE 54272,B1 = POKE 54290,17 
1030 POKE 54274,33 + FOR K = 1 TO LE + NEXT 
¢ POKE 54273,0 + POKE 54272,0 + POKE 54287,0 
1035 POKE 54286,0 = POKE 54290,0 =: POKE 54276,0 
+ NEXT Z 
1040 POKE V + 32,6 = LL = 0 + POKE 54278, 240 
+ POKE 54292,240 + POKE 54277,0 + POKE 54291,0 
1050 POKE 54296,10 + IF L < 4 THEN 94 
2000 POKE V + 32,0 + POKE V + 24,20 + PRINT "ta" 
2010 PRINT "“BMHARD . LUCK" 
2020 PRINT "{gYOU . SCORED"S"POINTS" 
2030 PRINT " {0 (ANOTHER . GAME?" 
2040 PRINT “#@BOR . WAS . THE .LAST . ONE . TOO . TOUGH" 
2070 GET AS + IF AS = “Y" THEN RUN 
2080 IF AS < > "N" THEN 2070 
2090 PRINT " (@)BYE . BYE . THEN." 
2100 PRINT “m& YOUR . COMPUTER . IS"; 
2110 END 
8000 DATA 34,75, 400, 0,0, 40, 34, 75, 300, 0,0, 40, 34,75, 
100, 34, 75, 400, 0,0, 40 
8010 DATA 40, 200, 300, 38, 126, 100, 0, 0, 40, 38, 126, 300, 34, 
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8020 
9000 


9010 


9015 
9020 


9025 
9030 


9040 


9050 


75, 100, 0,0, 40, 34, 75, 300 
DATA 0,0, 40, 34, 75, 100, 0,0, 40, 34, 75, 500 


DATA 0,0, 129, 129, 185, 184, 146, 124, 54, 54, 54, 40, 48, 
68, 68,199 


DATA 4,7, 4,56, 112, 208, 72, 72, 14,14, 4,14, 31, 142, 


110,60 


DATA 255, 255, 255, 255, 255, 255, 255, 255 


DATA 0,0, 28, 60, 254, 255, 255, 255, 24, 24, 255, 255, 24, 
24, 24,24 


DATA 0,73, 42,0,99,0,42,73 
DATA 0,0, 3, 13, 25, 62, 96, 192, 56, 232, 28, 28, 62, 62, 


127,8 


DATA 28, 22,59, 56, 124, 124, 254, 16,0,0, 192, 174, 152, 
124,4,3 


DATA 0,0,0,0, 146, 68, 1,82, 128, 128, 128, 128, 128, 128, 
128,128,1,1,1,1,1,1,1,1 


CHEXSUM 
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Horse Racing 


Bet on the horses without losing anything. The game begins with the 


names of the four horses displayed against their odds. You must choose 


a horse and place your bet. 


Program contains full instructions. 
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PROGRAM STRUCTURE LINES 


INITIALIZATION 1—9 
DISPLAY PLAYER’S FINANCE 20 — 21, 500 
GENERATE ODDS 11 

DISPLAY ODDS 25 — 36 
PROMPTING FOR BETS 20 

SETUP RACE DISPLAY 100 — 120 
RUN THE RACE 130 — 140 
DISPLAY RESULTS 205 — 5040 
DATA FOR ‘SPRITE’ CHARACTERS 9000 — 9050 
VARIABLES 


M = PLAYER’S MONEY 

OD() = ODDS OF EACH HORSE 
B = PLAYER'S BET 

H = HORSE CHOSEN 

H() = POSITION OF EACH HORSE 
Z = DELAY LOOP VARIABLE 

HN = WINNING HORSE 
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HORSE 


100 


101 
102 
103 


105 


106 


RACING 


REM * A DAY AT THE RACES # 
M = 100 + CO = 54272 + POKE 53280,0 
+ POKE 53281,0 
FOR N = 0 TO 126 + READ @ = POKE 832 + N,Q 
: NEXT N 
V = 53248 = POKE V + 21,15 + POKE 2040,13 
+ POKE 2041,13 + POKE 2042,13 + POKE 2043,13 
POKE V + 39,2 = POKE V + 40,3 = POKE V + 41,4 
* POKE V + 42,5 
POKE 54296,15 + POKE 54277,64 = POKE 54278,128 
¢ POKE 54276,129 + POKE 54273,0 
POKE 54272,0 
PRINT “iM. 2. 2 aw wk ew ew a kw 2 AL DAY LAT 
4 THE . RACES" 
FOR I = 1 T0 4 = OD ( I ) = INT ( RND (1 ) 
#10 + 1.) = NEXT 
PRINT “ (1 (6) BYYOU . HAVE 4 £°5M5 "LEFT." 
IF M = 0 THEN 500 | 
PRINT "(1 @)M@PHORSE 2. kk kk kk kk 
PRINT ™ Best Ged esd Goad bead Kesd nal feed Leal cad esl feesd bool boed bead fool bee 
Eced feed Real Real “* 
PRINT “ fe] ii. . BARED . DEVIL 2. 4 4 [a4 
sOD (1) 3"/1" 
PRINT “(el ii2. . THE . BLUE . MAX . 4 i"50D ( 2) 
5 "/1" 
PRINT "(@)iS. . M@#PINK .LADY . 4. 4 4 4 iat" 
s0D (3) 3"s/1" 
PRINT “(el ial4. . GSGREEN . GOBLIN. . I§"30D ( 4) 
; 71" 
PRINT " [el el Gi. . BET . HOW . MUCH" 
INPUT B = IF B > M THEN PRINT "() 4. 4 «1 «1 «1 & @ 
ae « OOOO" = GOTO 40 
PRINT “{@JON . WHICH . HORSE . (1,2,3,4)" 
INPUT H + IF H < 1 OR H > 4 THEN PRINT "CV a 4 
a ewaoeis os «6 OF OO" = GOTO 60 


» 
> 


GET AS = IF AS = ““ THEN 90 
PRINT "2" = POKE 53281,5 + POKE 53280,8 


¢ FOR I = 55496 TO 56135 + POKE 1,0 
+ POKE I - CO,160 
NEXT 
FOR I = 55456 TO 55495 + POKE I,1 
+ POKE I — CO,35 = NEXT 
FOR I = 56136 TO 56175 = POKE I,0 
¢ POKE I - CO,163 + NEXT 
PRINT “ G9 Ce} (] fe] (6) (©) (6) 08 8 OE 8 8 8 ie. 
On | Qn | Ce | ee | ee | Gime | PaGie | eG) 
TT ROGE | ENON | RECE | Umm | MUNG | MUGEN | MMGe | i 
PRINT ™ be (ed (e) fe) (eo) fe) Bid 2 ol 2 ele . el) ee . fo) oe 
2 © O8 . 2) BES (eo O8T ol BEA el BER el eT fel ee 2 tele 
0 gh . (6) 88. fl ae . eo Be" 
H¢1)=202H( 2) =202H( 3) = 20 
> H( 4) = 20: LE=1 
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120 


125 
126 
130 
131 


132 


133 
135 


136 
140 
200 
205 


206 
210 
220 
230 
240 
245 
250 
260 
3500 
310 
315 
320 
350 
360 
570 
380 
390 
900 
905 
910 
9000 
5010 
9020 
90030 
9040 
9000 


9010 


9020 


9030 


9040 


FOR I =Q 10 3 + POKE V+I1I%*2,H (1 +1>) 
¢ POKE V + I * 2,90 + ( I & 35) = NEXT 

IF LE = 1 THEN LE = O ¢ GOTO 130 

IF LE = 0 THEN LE = 1 

FOR I = 0 T03 

POKE 2040 + 1,13 + LE ¢ IF LE = 0 
THEN POKE 54273,2 ¢ POKE 54272,37 

IF RND (1) < .450R (OD(I+1)<5 
AND RND ( 1) < .4 ) THEN H ( I ) 
=H (I+ 1) + INT ( RND (1) ) 
+ GOTO 135 

HC I+1)=HCT+1) +441 

POKE V + 1% 2,H ( I +1) ¢ POKEV+1+/1 
* 2,90 + (I1* 35) + IF LE =0 
THEN POKE 54273,0 + POKE 54272,0 

IF H ( I + 1) > 240 THEN 200 


HW 


+ 1 
x5 


NEXT ¢ GOTO 125 

FOR Z = 1 TO 500 = NEXT 

POKE 53281,0 : POKE 53280,0 + PRINT "Mm" 
* FOR Z = 0 TO 3 + POKE V + Z * 2,0 = NEXT 


+ HN = I+ 1 
GOSUB 5000 
PRINT “ . LAWINS." 
PRINT “(YOU . BET .ON."3 * HN = H = GOSUB 5000 
IF I + 1 < > H THEN 300 
PRINT " . TOO!” 
M=™"+0D(1+1) ®& B 
PRINT “ §§SO . YOU’VE ., WON .+4"50D ( I+ 1) & B 
GOTO 30 
PRINT = PRINT " €a@YOU’VE . LOST .£"3B 
PRINT " @] FABAD . LUCK!" 
M=M"- 8B 
IF M < 1 THEN FOR I = 1 TO S000 += NEXT # GOTO 10 
PRINT “DO . YOU . WANT 4. TO . PLAY 4. AGAIN?" 
GET AS + IF AS® = "Y" THEN 10 


IF AS < > "N" THEN 360 

PRINT “ (af (] (@JBYE . BYE!" 

END 

PRINT “ a@aYOU’RE . BROKE!" 

M = 100 

GOTO 350 

IF HN = 1 THEN PRINT “" ESRED DEVIL" § 

IF HN = 2 THEN PRINT " Ka THE . BLUE , MAX"; 
IF HN = 3 THEN PRINT “ @§THE . PINK , LADY" 5 
IF HN = 4 THEN PRINT “ G@GREEN . GOBLIN"; 
RETURN 


DATA 0,14,0,0, 14, 20,0, 12, 28, 0, 28, 26,0,31, 
63,0, 28, 255, 0, 28, 247, 0, 127, 227,35 

DATA 255, 224, 7, 255, 224, 15, 255, 224, 25, 255, 224, 
25, 255, 224,57, 216, 112,49, 222 

DATA 112,97, 192, 48, 97, 192, 48, 225, 128, 96,3, 
128, 94, 3,0, 224, 7,0, 224,99 

DATA 0, 14,0, 0, 14, 20, 0, 12, 28, 0, 28, 26,0, 31,63,0, 
28, 255, 0, 28, 247, 0, 127, 227,53 

DATA 255, 224, 7, 255, 224, 15, 255, 224, 25, 255, 224, 25, 
255, 224,57, 216, 112, 49, 222 


83 


97050 DATA 112,97, 192, 48,97, 192, 48, 48. 192, 96,3, 
128, 192,3,1,128,0,0,0 


CHEXSUM 
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Luna Landa 


This is one for all you budding young astronauts. The surface of the moon 
is looming closer, and you must control the horizontal and vertical 
velocities of your module to achieve a feather-light landing. 


Keep an eye on your fuel gauge at the bottom of the screen, don’t run out 
of fuel. The more difficult the landing site the more points you get for a 
successful mission, each perfect landing increases the difficulty of the 
next. Be careful not to damage your module by landing too hard. 


Controls are: 
‘C’ move right 
‘Z’ move left 
‘F3’ Ya power thrust 
‘FS’ 2 power thrust 
‘F7’ full power thrust 
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PROGRAM STRUCTURE 
INITIALIZATION 
(SET GRAVITY, VELOCITIES (HORIZONTAL 
AND VERTICAL) LINE 35) 
INITIALIZE LUNAR MODULE 
AFFECT MODULE WITH GRAVITY 


CONTINUE HORIZONTAL & VERTICAL MOTION 
INPUT KEY 


CHANGE HORIZONTAL VELOCITY IF CORZ 
CHANGE VERTICAL VERLOCITY IF THRUST 
CHECK LANDING ON PAD 1 Y? THEN 1000 
CHECK LANDING ON PAD 2 Y? THEN 1000 
CHECK LANDING ON PAD 3 Y? THEN 1000 
CHECK FOR CRASH 
IF CRASHED, EXPLODE 
ASK FOR NEW GAME 
YES? THEN 160 
END 
REDRAW LANDSCAPE, REINITIALIZE 
VELOCITIES, POSITIONS, ETC 
GO TO MAIN BODY 
LANDED SAFELY? N? THEN 120 
GIVE SCORE FOR SAFE LANDING 
INCREASE DIFFICULTY FOR NEXT TIME 


DATA 
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LINE 


1— 35 


44 
50 — 80 
85 


87 
88 — 92 
100 

105 

110 

115 
120 — 130 
135 

140 

150 

160 — 180 


1000 — 1010 


1000 — 10080 


VERTICAL VELOCITY 
HORIZONTAL VELOCITY 
NO. OF SAFE LANDINGS 


Y POSITION 
KEYBOARD PORT 


KEY PRESSED 


ADDRESS OF VIDEO CHIP 
FUEL 


GRAVITY 


VARIABLES 
V= 

G= 

VV 

HV 

NO 

X1 = X POSITION 
Y1 

K = 

K = 

FU 


ee 
UEL 
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LUNA LANDA 


1 


3 


10 


15 


20 


20 


30 


SO 


40 


42 


43 


44 


45 


00 


pers 


a7 


60 


65 


70 


73 


80 


85 


87 


88 


POKE 55,255 + POKE 56,47 * V = 53248 
* FOR I = 12544 TO 12551 += POKE I,O0 = NEXT 
FOR I = 0 TO 103 = READ A = POKE 12 % 1024 + I,A 
+ NEXT 
FOR I = 832 TO 894 * READ A = POKE I[,A = NEXT 
+ POKE 2040,13 + POKE V + 24,28 
+ POKE V + 39,15 ¢ NO = 1 
POKE V + 35,0 = POKE V + 32,0 = FU = 1000 
> SC = 0 
PRINT “@2 lj © 2 © ©) © © GG ()BC 4D )H (2) BB fH 
fe] B87 fo] GT fel BAK (4) O8 BEE (2) O8 O8 GEDA ) OO 
BEE (©) G8 BRE fo) BED 1D (OD YDLLLK CF MAI"; 
PRINT “C) @8J (2) @9HC) MBE OOE COPA TIE OOK OO BSI COK OC) al 
OLLLK OC) @8I OC) 89D OC) 88 BED CE MBDA CME OKO 
BET COF DGG (OH 9 BB OH fe) a8"; 
PRINT “ (©) G8] (2) GOK (2 GBH 2) O8d lH (fe) BA fe BE fe) Be BEE 
fe GH fe} B80 1D f)BCLLLLEBC (JBC f1D"; 


G = .040875 + VW = 0 + HV = .5 += POKE V,2 
+ POKE V + 1,29 + POKE V + 16,0 
: POKE V + 21,1 + KB = 197 + X = 2 
FOR I = 0 TO 190 + READ A + POKE 13 % 1024 + I,A 


NEXT I 

FOR I = 896 TO 958 + 
: IF INT ( (I +1) 
THEN POKE I,128 

NEXT 

POKE V + 3,232 + POKE V 
OR 2 = POKE 2041,14 : 
+ A = PEEK (V+ 31 ) 

PRINT "BHM MMO MMMMmoOoMmMoomem © © 4 & 
ORORCRCR IRIN IN IN IBN IN IM IN IN: Seen nema mee me moe 

VV = VV + G + POKE V + / 10 + 96 
¢ IF VV > 4 THEN VV = 

A = PEEK (V +1) + A=A+ VW + IF A > 230 
THEN A = 230 

IF A < 29 THEN A = 29 

POKE V + 1,A + B = PEEK ( V + 16) AND 1 

A = X + HV = IF A > 255 AND B = 0 
THEN POKE V + 16, PEEK ( V + 16) OR 1 ¢* B= 1 
7 A=O0 

IF A < 0 AND B THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254 :+ B=0: A = 255 

IF A < O THEN POKE V + 14, PEEK ( V + 16) OR 1 
* B= 1+ A= 87 

IF A > 87 AND B THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254: B=0 + A=0 


POKE I,0 
4/3) %* 3=] 


+ 21, PEEK ( V + 21 ) 
POKE V + 40,2 


B) 
2,Fu 
4 


POKE V,A = X = A + K = PEEK ( KB) += IF FU < 1 
THEN K = QO 
HV = HV + ( K = 20 ) ®* C HV < 4) *® 21 - 


(K = 12) &€ (HV > - 4) & .1 + FU = FU + 
(K = 20 ) + ( K = 12 ) 
IF ( FU < 3 AND K = 6 ) OR (€ FU < 4 AND K = 3) 


90 VV = VV + ( K = 5S) *® .0625 + ( K = & ) & .125 
+ (kK = 3) & .25 

92 FU = FU+ ( K = 5) + ¢( K = 6) €F 3+ CK = FB) 
es 5 


+ 


95 Yl = PEEK ( V 1) = Xi = PEEK ( V ) 

B= PEEK ( V + 16) AND 1 

100 IF Y1 = 228 AND X1 > = 63 AND X1 < = 67 
THEN LA = 1 = GOTO 1000 

105 IF Y1 = 132 AND X1 > = 143 AND X1 < = 147 
THEN LA = 2 + GOTO 1000 

110 IF Y1 = 204 AND X1 > = 7 AND X1 < = 13 AND B 
THEN LA = 3 = GOTO 1000 

115 A = PEEK ( V + 31 ) AND 1 >= IF A < > 1 THEN 50 

120 FOR I = 208 TO 210.9 STEP .025 += POKE 2040, I 
+ NEXT = FOR I = 210.5 TO 209 STEP - .05 

125 POKE 2040,1I = NEXT + POKE V + 21,0 

130 FOR I = 1 TO S000 = NEXT = PRINT “ (" 
+ POKE V + 21,0 = POKE V + 24,20 
+ PRINT ™ feo fe) (© GRYOU . CRASHED'" 

135 PRINT “ (©) {6} fe imSCORE" 3; SC 
> PRINT “ (@) fe] 6) MHANOTHER . GAME?" 


@ 


140 GET AS = IF AS = “Y" THEN 160 
145 IF AS < > "N" THEN 140 
150 END 


160 FU = 1000 + SC = 0 + POKE 2040,13 
+ POKE V + 24,28 

165 PRINT “O28 © © © © © © @ GG BC 1D }H ©) O80 fH 
(1) G8 (©) GET ol GHK fo) BS BRE (2) OE G8 BEOA ) OE OB 
BRE () 08 GRE ©) 88D DMD MDILKO MI"; 

170 PRINT “€) 88) © @8HO @8E OOF OOOAQOE OKO) MI OKO Ol 
OLLLK OC) O81 CO) 88D CO) 88 88D OO BBPAQE OKO 
B81 OOF DGG HH ©) Bh @H ©) BB": 

175 PRINT “ @) GO1 ft Sak fe) GOH 0 B80 lH fe) 88d fe) SBE te) a BE 
1] GBH (2) 88 1D ()BCLLLLEBC @IBC (D"; 


180 VW = 0 += HV = .5 +: POKE V,2 + POKE V + 1,29 
: POKE V + 16,0 + POKE V + 21,1 + X = 2 
+ GOTO 44 


1000 IF VV > 5 OR ABS ( HV ) > .4 THEN 120 

1005 SC = SC + ( 4-—LA) * SO + FOR I = 1 TO 5000 

s NO = NO + 1 

1010 POKE V,2 + POKE V + 1,29 + POKE V + 16,0 
+ POKE V + 21,1 = KB = 197 + X = 2 
s HV = NO # .5 + GOTO 44 

10000 DATA 0,0,0,5, 10, 16, 96, 128, 1,5, 8, 144, 96,0,0,0, 
128, 64, 64,80, 105,6,0,0 

10005 DATA 0,0,0,0, 132, 74, 49,1,128, 64, 48,8,4,4, 4,1, 
1,1,2,10, 20, 16, 32,192 

10010 DATA 0,0,8, 20, 36, 66, 65, 129, 0,0,0,0, 4, 42, 209, 
129, 128, 64, 64, 32,16,16,8,8 

10015 DATA 1,1,2,4,2,2,4,8, 4, 2,2, 4,2, 2,1,1,8, 14, 
32, 32,32, 64, 64,128 

10020 DATA 0,0,0,0,0,0,0, 255 

10025 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
8,0,1,255,0,1,141,0,3,167,0,0 

10030 DATA 132,0,0, 239, 0,0, 169,0,0, 255,0,7,131, 
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10035 
190050 


10055 


10060 


10065 


190070 


10075 


10080 


192,10, 130, 160, 10, 130, 160, 31 
DATA 255, 240, 16,54, 14, 32, 124,8,112,0,28 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,0, 


CHEXSUM 


5 3 

0,0,9,0, Q, 6,0,0,0, 8,9,9,8,0,0 

DATA 20,0, 34,0, 0, 20,0, 0,8, 0,0,8,0,0,0,0,0,0, 
0,0,0,0,0, 0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 ,0,0,0, 0,8,0,9,54,0,0,193 

DATA 128, 1,0,64,4,0, 48, 1,0, 64,0, 193, 128,0,54 
0,9,8,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0, 28,0,0 

DATA 227, 128, 15,0,120, 112,0,7,15,0, 120,0, 227 
128, 0, 28,0,0,0,0,0,0,0,0,0,0 

DATA 0,0, 0.0,0, fe) 
L=2492 118=3742 raAyve=dlel 
areead Be ew oie ru | 1OG7S“4eas 
ig-41629 {fO=3765 raqer=eae 
{352949 i25=1399 

see rh ey i2za=4842 Tre iS eS 

SoTac6? 125-2795 

Be=4Se7 14B=12a6 

Se S5451 1452125 

4=2520 i5@=129 

42=37S2 1EH=PaAasaa 

43=ist {BS=7Tar? 

44=4772 {7R=9367 

45=2992 i7o=4650a7 

SH=3406 14M=a5ee2 

3S5=2875 iseeg=17e4 

of =1642 imMag=34e4 

68=i1540 1A1LO=50e9 

65=4349 LAMAR =2E6HR 

7O=3395 1f8C@5=25e6 

Ya5299e2 if@ia=s9g97 

SB=S369 {ARLS=zi5a 

S5=26395 LAPEA=1an4 

Se7=6197 1@AS5=4116 

PS=2856 L4AS2a=2832 

S8=358e {AO25=2H13 

ae=e282e8 ige5e=4e¢6 

SS=s021 {AS55=2e7S 

iAM=a3547 {AMee=-3a5e 

1A4=366E 1Aese=47e7 
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Simon 


Simon plays a series of tones incrementing the number each time. You 
must repeat the sequence. The screen displays the numbers 1 — 6 and 
one of these will light up to correspond with the tones played. Each time 
Simon repeats a sequence he adds a note and plays the ‘tune’ faster. 
You win by repeating his tune until it is eight notes long. Use the keys 1 — 
6 to reproduce the tones and lights. 


Remember, this game tests your speed as well as your memory and you 
only have a limited amount of time to react! 


PROGRAM STRUCTURE LINES 
INITIALIZATION 0—3 
DRAW SIMON, CAPTION: CALL ‘DRAW LIGHTS’ 4—9 


CALL INTRO’ DIMENSION NOTE ARRAY 10 

PLAY NOTE AND ENTER INTO ARRAY: 20 — 25 
CALL ‘LIGHT KEY’ 

CLEAR NOTE: CALL ‘LIGHT KEY’ 30 — 35 

PROMPT FOR KEY INPUT 40 

GET KEY (IF ANY) FROM QUEUE AT END OF 45 — 50 
DELAY 

WRONG KEY, CALL ‘END’ 55 


COMPARE WITH ARRAY, IF WRONG CALL‘END’ 56— 80 


PRINT CONGRATULATIONS AND GET KEY 90 — 99 
TO RESTART 

PRINT LIGHTS ONTO SCREEN 100 — 190 

CHANGE COLOUR OF SELECTED LIGHT 200 — 270 


TURN OFF SOUNDS AND GET KEY TORESTART 500— 560 


PLACE CAPTIONS IN BUBBLE AND DELAY 5000 — 5140 

DELAY AND CLEAR CAPTION 6000 — 6030 

DATA FOR SIMON 9000 — 9050 
VARIABLES 


V = POINTER FOR SPRITE HANDLING 

N(X) = NOTE ARRAY 

| = POINTER TO LAST NOTE PLAYED (I = —1, INTRO CAPTIONS IN 
PROGRESS) 

A = PLAYER'S INPUT 
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SIMON 


W 


QOncocd Sd 


92 
95 
98 


99 
100 


110 


120 


PRINT “fa" ¢ POKE 53281,1 + POKE 53280,4 : 
POKE 54296,15 + POKE 54274,0 + POKE 54276, 17 
POKE 54277,0 + POKE 54278,240 : POKE 54273,0 + 
V = 53248 + POKE V + 21,3 + POKE 2040,13 
POKE 2041,14 = POKE V + 39,0 + POKE V + 40,5 : 
POKE V + 28,2 + POKE V + 38,0 : 
FOR I = 0 TO 126 = READ @ 
POKE 832 + I,Q + NEXT = POKE V,140 ; 
POKE V + 2,140 : POKE V + 1,61 = POKE V + 3,82 


PRINT “3M. hi iiniib bh bn" 
PRINT “lB ce ck ake ae a a ee ae TE * 
PRINT 3 i a yo a a” a” a” Sa Sa ae to" 
PRINT “bow 2 a ow ot ke me ee EG" 


PRINT "bm id @ 1. @ ~@.@ee.w@esi@eu.@eus. @ 
Fa a Se Seren, Sen, Seen an Sa a Mae 
a @ ." 3 GOSUB 100 

GOSUB 5000 = DIM N ( 6 ) 

FOR I =1TO08+2+N(1) = 
INT ( RND (1) #6) + 1 4 FOR J = 1 TOT = 
POKE 54276, 17 

POKE 54273,N ( J ) & 20 ¢ PRINT " gg" = 
GOSUB 200 

FOR X = 1 TO 400 —- I & 30 + NEXT ¢ POKE 54273,0 

PRINT “m" * GOSUB 200 

FOR X = 1 TO 200 —- I * 20 + NEXT X,J + PRINT 
“ £9 ) ( B] Es 4. REPEAT (0 G8 08 88 88 BE THE (0 Oe 8 8 
NOTES!" 

FOR J = 1 TO I + POKE 54276,0 + POKE 54274,33 : 
POKE 198,0 + FOR X = 1 TO 250 — I ¥# 20 

GET AS =: IF VAL ( AS ) > O AND VAL ( AS) < 7 
THEN 55 

NEXT X = GOTO 500 

GOSUB 6000 

IF VAL ( A$) < > N ( J) THEN 500 

POKE 54273, VAL ( AS ) & 20 = PRINT “ Ba" = 
GOSUB 200 

FOR X = 1 TO SOO —- I * 50 + NEXT + POKE 54273,0 
: PRINT “mm " = GOSUB 200 

FOR X = 1 TO 1500 - I * 80 = NEXT J = 
FOR X = 1 TO 600 = NEXT X,I 

GOSUB 6000 = PRINT “ Ed ©) ©) &] Bf . YOU (©) €8 88 88 


> 
Sd 


a2 WIN! !" 

GOSUB 6000 = PRINT " 3 tf © 4 PLAY (©) 08 BE G8 
BEAGAIN?" 

GET AS = IF AS = “Y" THEN 20 


IF A® < > "N" THEN GOTO 92 

GOSUB 6000 + PRINT “ & (0 () 6] B] . mBYE'" 

END 

PRINT “ B53 (el (ef [el (el (9 
~.. 8 2 2 

PRINT "BIBI Bi. .1.. 0881 86 2B 2 
| 7 «a 4 za -z ” 

PRINT "BIBIDBIMN iW... @ PE BB 


LJ 


93 


BREE BEIMi. 2. 2. PP" 

130 PRINT “@@HBHWP. . . SM BB! 2) BB) eB) 
BIREEEEM... " 

140 PRINT "BIBI BIW. 1.2. . 88) 2) 2B) BP! 2) BB 
BP] PF] . i ik “<"" 

150 PRINT “BIBI BI Mi... @ 2) BB) BP) 2) BB) 
BFIEEEIEINMW ow... me" 

160 PRINT "MM BI EPI PM. . . S&B) BB) &) 2) 
BEE BEIEIP. . . Mm" 

170 PRINT “BIBI BIW. 5. . 82] 21 2] BE) BB) EF) 
BPIBRBIBI. «6. .4.”" 

180 PRINT "@ BIBI Mid... @ ©) 2) BB) &) 2) 2) ©) BE) 
FIBRE MiW.. . PP" 

190 RETURN 

200 PRINT "BOW @ @ © 2 © © BB BI"; =: 

IF N ¢( J >) > 3 THEN PRINT 
“61 EE) BI] 2) BP) 2) 2) 2) eB) 2) 2) 2) 2) BB) Be) B'S 

210 IF N ¢( J) = 1 THEN PRINT "tiBP).w. 2. . Mf §8 
BERR GRE. 21. 4. OEE 0 0 6 eS i 
~~ af . @ P)" 

220 IF N ( J ) = 2 THEN PRINT "™ (@) (6) f) () fo) Led 
Ph. . «. MCORP MERE Be ow 1.2. 4. B88 2 
BOM@M@i.w . . SP" 

2350 IF N ( J ) = 3 THEN PRINT “ (9) © © ©) © © 1 € 
(Heli Pl. . . ME Re Rew ws Ce 
tT | en _ 

240 IF N ( J ) = 4 THEN PRINT "li RP). . . MM © Of 
BERR RRM. 24. . 8 0 ee ee 
a « . @ Pp)" 

250 IF N ¢( J >) = 3S THEN PRINT “ (eo (@) fel (6 (eo lad 
Pow. «. SOOPER ee. 25. . 8 8 8 8 
|| Ea Bt een _ 4 ie 

260 IF N ( J ) = & THEN PRINT “ (2 f) (O f)  f) © 
(Aid Rw). . « MRE Reb. 2 ow. 0 0 
Te | 2 een _ td ie 

270 RETURN 

300 POKE 34276,0 = POKE 34276, 33 

910 FOR I = 20 TO 1 STEP - «2 * POKE 54273,1 = NEXT 


920 POKE 54273,0 
925 GOSUB &000 
330 PRINT “ BS fe} [fe EABAD ., LUCK." 
935 PRINT “ BIPLAY" 
5940 PRINT " BRJAGAIN?" 
945 GET AS = IF AS = "VY" THEN POKE 54274,0 + 
POKE 54276,17 = GOSUB 6000 = GOTO 20 
090 IF AS < > “N" THEN GOTO 545 
955 GOSUB 6000 = PRINT " 3 © im BYE! © fe) fe) 
fe} fe) fey“ 
360 END 
5000 I = —- 1 = PRINT * BS ( 6) B] Fa .HI . I’M" 
9005 PRINT “ a CALLED" 
9010 PRINT “ a SIMON" 
9020 GOSUB 6000 
9025 PRINT " £3 & © a WANT . TO" 
9030 PRINT “ a PLAY . MY" 
9035 PRINT “ a «a GAME?" 


0036 
9037 
9038 
9040 
9045 
3050 
9055 
3060 
9065 
93070 
9075 
9080 
92085 
3090 
9095 
9100 
9105 
9110 
9115 
9120 
9125 
9130 
90135 
9140 
9500 
5502 
9505 
9510 
6000 


6005 
6010 
6020 
6025 
6030 
97000 
9010 
9020 
9030 
97040 


9050 


GET AS = IF AS < > “N" AND AS < > "Y" THEN 
IF AS “N" THEN 3500 

IF At = “Y" THEN GOSUB 6000 

PRINT " B93 fe] (J me REPEAT" 

PRINT “B} . « « THE" 

PRINT "“ BISEQUENCE” 

GOSUB 6000 

PRINT “ 63 (o] (4 GEOF . LIGHTS" 
PRINT “BI. . wzAND,”" 

PRINT “ a SOUNDS. " 

GOSUB 6000 

PRINT “ by (9 (4) BI THERE’S" 

PRINT “ BIMORE . EACH" 

PRINT ™ a « TIME." 

GOSUB 6000 

PRINT "“ fe fe) M7YOU . MUST" 

PRINT " a4 BE , VERY" 

PRINT “ a «4 QUICK!" 

GOSUB 6000 

PRINT " £3 @ © a « STAND” 
PRINT “BI. «. « BY" 

GOSUB 6000 

GOSUB 6000 

RETURN 

GOSUB 6000 

PRINT “3 @ @ ES BYE . BYE" 

PRINT “BIE 4. THEN!!! (9 f ©) © 4 I" 
END 

IF I = — 1 THEN FOR Z = 1 TO 2000 = NEXT = 


9036 


POKE 54276,0 = POKE 534276,33 = POKE 54273,50 


PRINT Ps 3 fe] CR > a a - - - - - - ne 
PRINT oe ry - - - a, - s+ - - " 


PRINT " s - ay - - ry - - - 
IF I = — 1 THEN POKE 54273,0 
RETURN 


DATA 0,0,0,0, 255, 128, 1,255, 192, 3, 255 

5224, 2,0, 32, 2,0, 32, 2,54, 32, 2,99, 32 
DATA 2,99, 32, 14, 193, 184, 19,8, 40, 10,8 

, 40,8, 24, 8,8, 193, 136,8,99,8, 8, 28,8 
DATA 4,0,16, 4,0, 16, 7, 128, 240 

»5, 255, 208, 2, 231,32,99 
DATA 2,255, 128, 10, 190, 160, 42, 255, 148 

, 170, 255, 170, 174, 235, 184, 174, 235, 186 
DATA 174, 235, 186, 174, 235, 186, 44, 170, 184 

, 43, 170, 232, 10, 235, 160, 10, 235, 140 
DATA 10,190, 160, 10,195, 160, 3, 60, 192, 3 

» 255, 192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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CHEXSUM 
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=2820 
=3919 
=4728 


"i 
td 
iN) 
iN) 


a) 
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QQ — 
un 
~J 


To f em TY 
ro oo co 


u 
a) 


ll 
cos i oO SO 
Mie & 


=7ES 
=ESO85 
=1[¥3F 
=2133 
=FSS 


ds 
a8) 
iT) 


“J 


N 

oO mM w 
a) 
"0 
~sJ 


nt) 


i 2 Of e Ju 


=251 
-1492 
=1919 
=2997 
=2942 
=2PA7 1 
=22ag 
=1245 
=1445 
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=1239 
=E145 
=1878 


iF 
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M=4954 
@=142 
BH=-12149 
1@=2he28 
2eQ=s28 
SeoS SS 
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SPRITE 


SIMON’S 


Racer 


This is a Grand Prix simulation with a different twist. 

You have anticipated your win and celebrated before the race, as a result 
you are drunk and end up driving the race in the wrong direction. 
Instructions are contained within the program which allows you to select 
different levels of speed and skill. 


Watch out for oil slicks! 
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PROGRAM STURCTURE 
INITIALIZE SPRITE 
PRINT LINE OF TRACK ETC 
GET KEY PRESSED 
MOVE CARS 
SOMETHING IN ROAD? 
CRASH ELSE NEXT LINE 
CRASH SPIN OUT 
THREE CRASHES? 

END, ELSE START AGAIN 
DATA 


VARIABLES 

SP = SPEED 

LA = NO. OF LAPS 

OS = OBSTACLE (OTHER) 
C = OBSTACLE (CAR) 

SK = SKILL LEVEL 


P = POSITION OF OBSTACLE 


L = NO. OF CRASHES 
X = YOUR POSITION 
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LINES 


0—9 
10 — 54 

100 

110 — 130 
140 
200 — 240 
500 — 580 
1000 

1000 — 1050 
9000 — 9120 


RACER 


10 


GOSUB 2000 + POKE 55,255 + POKE 54,48 : 
Vv = 53248 

POKE 53281,5 + POKE 53280,7 + 
POKE V + 22, PEEK ( V + 22) OR 16 + 
PRINT "@" 

POKE 53265,151 + FOR I = O TO 111 ¢ READ A ; 
POKE 12 * 1024 + I,A ¢ NEXT = POKE V + 24,28 

POKE 54276,0 : POKE 54296,4 + POKE 54277,132 ¢ 
POKE 54278,240 + POKE 54272,18 = POKE 54273,1 

POKE 54274,129 

L=0+ LA=0% X = 150 + POKE V + 34,4 + 
POKE V + 35,7 

FOR I = 0 TO 4&2 =: READ A = POKE 832 + 
NEXT + POKE 2040,13 + POKE V + 39,7 
POKE V + 37,64 

POKE V + 38,2 + POKE V + 28,1 + POKE V,X + 
POKE V + 1,100 + POKE V + 71,1 

FOR I = 12544 TO 12551 + POKE 1,0 ¢ NEXT 

PRINT "“E9"3 = FOR I = 1 TO 25 


I,A + 


“S112 2) 2!) 2) 2) Be) 2) 2) iS! 2) 2) 2 2) OB] BB) 
BS) BI R)I" = NEXT + A = PEEK ( V + 31 ) 
LA = LA + .02 = PRINT " 63 (0 (2) ©) © J f) 9) © fe) 
OOOO © Gao © 2 ©) © & ©& © &) &) BB] BF) 
IR IB IB IB IK PR ORR OR II I I ee ee 
IF SP > 1 THEN FOR I = 1 TO SP *¥ 20 = NEXT 
PRINT "Bi M@M MMM OOo Mo OW ee a 
GEOR GQBORGEOEGEGE GR 1 BI 18 IR IB 1838 Oe ee 
IF OS > O THEN 21 


IF C > O THEN 951 

IF INT ¢€ RND ( 1) 8 10 + 1) < 7 + SK THEN 100 
IF RND ( 1) < .95 THEN 50 

OS = 1: P = INT ( RND ( 1) ¥® 11 + 1 ~) 


IF OS = 1 THEN PRINT SPC( P) $"JK"3 = OS = 2 = 
GOTO 25 
IF OS = 2 THEN PRINT SPC( P ) 3 "LM"5 = OS = 0 


IF C = O THEN 100 

C = 1: P = INT ¢( RND (1) € 10+ 1 ) 

IF C = 1 THEN PRINT SPC( P) 35 "“@AB"S = C = 2 = 
GOTO 100 


IF C = 2 THEN PRINT SPC( P ) 53 "CDE"5 + C = 3 = 
GOTO 100 
IF C = 3 THEN PRINT SPC’ P ) 5 "FGH"3 = C = 0 


PE = PEEK ( 197 ) 


IF PE = 12 THEN X = X - 4 

IF PE = 36 THEN X = X + 4 

IF PE = 12 OR PE = 36 THEN POKE V,X = 
POKE V + 1,100 

IF PEEK ( V + 31 ) = 1 THEN 500 


IF LA < 12 -— ( SK * 2.) THEN GOTO 10 

POKE V,0 = POKE 54273,0 + POKE 54272,0 

POKE V + 24,20 + PRINT “(2 WELL . DONE! !!!" 
PRINT "bm [el [el a@YOU’ VE . COMPLETED . THE . GAME!" 
PRINT " [6] i CRASHES: "5L 

GOTO 1020 
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500 
503 
905 
008 
915 
520 
925 
930 
240 
D0 
560 
270 
979 


978 
980 
1000 


1002 
1005 
1006 


1007 
1010 
1015 


1020 
1030 
1040 
1050 
2000 
2005 
2010 


2020 


2030 
2040 


2050 
2060 
2070 
2080 


2090 
2100 
2105 


2110 
2120 
2130 
2140 
2150 
2140 
2170 


D=- 1 3: IF RND ¢ 1) < .& THEN D= 1 
POKE 534272,137 = POKE 54273,43 

FOR I = 100 TO 200 
POKE 53280,I / 10 

Xx=X+(D* 4) 

IF X < 118 THEN D 

IF X > 185 THEN D 

POKE V,X = POKE V 

NEXT 


~~ | = 


1 
sl 


+ il 


POKE V,X = POKE V + 1,100 


F L = 3 THEN 1000 
OKE V + 31,0 + PRINT "fa" + OS =O + C=032 
POKE 53280,7 
POKE 54272,18 + POKE 54273,1 
GOTO 9 
POKE V,O = POKE V + 24,20 =; 


x = 1 + 
L_=-t+i 
I 
P 


POKE 54272,43 = POKE 54273, 137 

POKE 354272,0 = POKE 54273,0 = POKE 54278,0 

POKE 54296,15 = POKE 54277,236 + POKE 542786, 236 
= POKE 534276,129 

POKE 54273,7 = POKE 54272,53 

PRINT " G& () (YOU . CRASHED . THREE , TIMES!" 

FOR I = 1 TO 700 = NEXT = POKE 54278,0 =: 
POKE 54272,0 = POKE 54273,0 

PRINT “ (6) (6) (9 GaWANT . ANOTHER . GO?" 


GET AS = IF AS = “Y" THEN RUN 
IF AS < > “"N" THEN 1030 
END 


POKE 53281,0 

PRINT “ £2 tgiROAD . RACER! '“ 

PRINT “ (6}] mA . GAME . OF . SKILL. . DODGE 
2 THE . CARS . AND. 4. 4« « 4 COMPLETE . FIFTEEN 
. LAPS. “ 

PRINT “ (} lYOU . HAVE . BEEN . DRINKING . TOO | MUCH 
. BEFORE . 4. THE . RACE . AND . YOU . ARE" 

PRINT "DRIVING , THE . WRONG . WAY!" 

PRINT " (©) ied ESAND . IF . THATS 4. NOT . ENOUGH . YOU 
4 CAN’T . STOP!" 

PRINT “ (@JCONTROLS . ARE: " 

PRINT “ (e0 maZ— GQLEFT" 

PRINT “ () aaM— BARIGHT" 

PRINT " (@}DON’T . CRASH . INTO . THE 4 SIDE . OF . THE 
. ROAD!" 

PRINT “ (#) [©] @#PRESS . A . KEY" 

GET At = IF AS = “" THEN 2100 

PRINT " (2 [ph>>>>>>>>>>>>>>>> 
GSOPTIONS |< <<< <6 66 EK KKK 

PRINT “ (6) EASPEED?(1 . FAST . - .5 4 SLOW)" 

GET At 

IF VAL ( AS ) < 1 OR VAL ( AS ) > 5 THEN 2120 

SP = VAL (¢ At ) 

PRINT “ (@] KESKILL . LEVEL?(1 . HARD .- 1.3 4 EASY)" 

GET At 

IF VAL ( AS ) < 1 OR VAL ( A*® ) > 3 THEN 2160 
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2180 
2190 
2200 
2210 
2220 
2230 
9000 


7010 
9020 
9030 
9040 
7050 
9060 
97100 


9110 


9120 


SK = VAL ( A ) 
PRINT ™ (9) (9 G@GOOD . LUCK:" 
PRINT “ (9 (] MBPRESS . A. KEY" 


GET AS 


IF aS =" 


RETURN 


+ IF Sk = 


2210 


1 THEN SK = 1.5 


DATA 0,0,4,7,15,7,4, 0, 48, 48, 252, 255, 255 
5 255, 236, 236, 0,0, 64,44, 192, 64, 64,0 
DATA 0,0,0,79, 127,127, 255, 79, 236, 252, 204 
535 255, 255, 255, 255, 0,0,0, 196, 244, 244 
DATA 252,196, 64,79, 15, 63,9,0,0, 0, 48 
, 255,171, 255,0,0,0,0 
DATA 4,196, 192, 240,0,0,0,0 
DATA 126,126, 126, 126, 60, 40, 60, 60 
DATA ,3,15,14, 14,58, 234,58,0,0,192 
» 192,192,192, 252,172 
DATA 14,14,58,58, 236, 243, 3,0,171,188 
» 240,192, 176,176, 176,192 
DATA 63, 255, 240,15, 171, 192, 79, 255, 196 
564,48, 4,79, 255, 196, 255, 255, 252, 127, 255 
DATA 244,127,255, 244, 79, 3, 196,0, 204 
29,0, 252, 0,0, 236, 0,0, 234, 0, 4, 234, 64,7 
DATA 255, 64,15, 255, 192, 7, 255, 64,4 


, 252, 64,0, 48,0,0, 48,0,0,0,0 


CHEXSUM 


es) 
ry 
& 
f 
m0 


I 
Q 
) 
| 
my 


b&w TO 

Ho 

mW tt 
~~] 
ym on 
“J 0 


iw 
Ul 


0 


“J om 
Hoo 
to da fu 


~f TU ee 
CO 
mw Ww 


Wl 

too 
un ww 

me =} CO 
ts 


io WwW MM 


ao | 


WM We © ow lo 
" 


II 
CO es fo ty 


“J 


Lt ts 
out 
MWe ee 


ID re 
~Je TD te DL 
1) ee = 


i 
ss] PO TO ee be TY 


9) 
Il 

ps 

m J 4 

“J 

Ls 


is 


co 
DM 


A Toe OB 
Hl 
m 


il 


“Jf 
Hc) 


CTU Pe Te he 


Sis2515 
aeHe52 1 
S4=1878 
1MO="S96 

1i1@=1344 
teB=1346 
{38=25g0H 
14@=13923 
“AB=1898 
PO@S=!552 
2Big=Pisi 
SEA=FeS1 
csA=1167 
e4A=58 1 
SAO=17S5 
aWS=1Sse 
“M5 =S83 

BAS=f3y 

=15=923 

=2@= 1865 
SP S=12S7 
SBe@=1825 


101 


S48=i31 
SSM=1626 
=eG@=56 1 
SYH=841 
4d 


a) | 
if) 
re 
yi 


OO 
il 


uit 
re 


Si 
Mm fO slo om) od 
5 
T 
SS 4 
LQ CO ne 


{AHa= i 
1AHP=13e3 
IBAS=176S 
ABE = 


2 


~J 
I 


~] 


& 
| 


cD 


i 
"ool 
TAT tee eee ee Te Tee ee 


Fee oh oe OOo ee RR oe ee 
my fl 


ch 
m wD 


4“ 
tl 


ns 
do ot TU ee mee ID 
oy 
if 
mn Me 
ty 


Ul 


TM Ty & 
| 
hn) 
il 
un © oO 
ai 


i 
ee iD 
2 


co 


ro 
rp 


Ue a 
KS) 
Ls 
a 
I 


m 
ra 


m 
| 
i) oe ) 


FASO=1969 
2849=2555 
FOS@=1262 
2A68=309 
POTa=975 
2O89=3344 
2egn=1e73 
21aM=1276 
F1a5=3140 
F119=1931 
PLZOQ=267 
2130=2013 
2140=737 
2i5a=2451 
=16@=2687 
217a=2011 
2120=2045 
F1igg=1161 
PEOA=1279 
PEAIB=EE7 
ePa=906 


rs 
H 
fs ee tp 
to fs 
i) 


fo fo mM 
ay) 


m3 
me td fo oe 
a 
I 


H 
ts 
1) 


CO oe 
cn i fu 


aw oo 
No) 
2 © 
I 
rm 


J 


mm 
m 
I 


mM fo co 


cs 
lf 
My TQ et ee 
ne) 
A ay 
ts 


Ty 
“J fu 
fs 


wi 
iT) 


a) 


iD 
ml 
Wl 
) 

tf 


mw ww wo 
o 
m 
9 
i} 


1aa=4674 
110=4292 
129=3179 


102 


eK Pek 0 0 “ay 


Re 


Cosmic Bugs 


In this game creatures attempt to get from the top of the screen to the 
bottom where they turn into Crabs which close in on you. 


You defend yourself with a blaster that can fire nets or energy blasts. 
Nets trap the creatures and earn you double points, energy blasts kill 
them but sometimes only split them in which case you only get half 
points. If the screen turns yellow you must prepare to move your blaster 
as it moves up the screen to the top, once successfully at the top the 
game will resume in a new play area. 


The creatures are: 

Scorpions — These are red and worth 10 points for a kill. 

Spikers — These are green and worth 20 points, or 30 when they leave 
a spike behind. 

Cutters — These are blue and can free other creatures from nets. They 
are worth 40 points and cannot be netted themselves. 
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Crabs — These are other creatures who have reached the bottom. 
Your only method of killing them is to use the super-zapper, 
(space bar) this uses 25 points. The screen is grey when you 


have enough points. The first time it is used it kills all life, 
otherwise only crabs. 


Controls : 
‘Z. blaster left 
‘C’ blaster right 
‘>’ fire nets 
‘<’ fire energy blaster 
‘Space bar’ super-zapper 
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PROGRAM STRUCTURE 
INITIALIZATION 


SET VARIABLES: SC, LI, P, NE, N,§S, 
SZ, RE, BO, TO INITIAL VALUES 


PRINT “FUNNEL”GRAPHICS 
GET KEY PRESSED — LEFT OR RIGHT? 


MOVE LEFT OR RIGHT DEPENDING ON 
KEY PRESSED 


DETERMINE MOVEMENT/ACTIONS OF DIFFERENT 


ALIEN TYPES 
TEST FOR CRAB CAPTURED BLASTER 
ACTION FOR CUTTERS 
ACTION FOR SPIKERS 
ACTION FOR SCORPIONS 
CRABS LANDED!?! 
FIRING A NET, FIRING AN ENERGY BLAST 
TRAPPED OR HIT AN ALIEN? 
MOVE BLASTER UP TO NEW GAME 
SPACE BAR HIT TO DESTROY CRABS 
BLASTER DESTROYED 
PLAY AGAIN/HIGH SCORE 
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LINES 

0— 10 

20 

25 — 40 

50 

92—55 

80 

85 

100 — 112 
115 — 130 
135 — 165 
170 — 195 
601— 615 
615 — 700 
707 — 725 
805 — 820 
1000 — 1020 
1030 — 1055 


VARIABLES 

SC = SCORE 

HI = HIGH SCORE 

P(O— 4) = CONTAINS POSITIONS OF ‘BUGS’ 
T(O — 4) = CONTAINS TYPE OF ‘BUGS’ 
P = POSITION OF BLASTER 

PC = POSITION OF CRAB 

L = ‘MOVE LEFT’ 

R = ‘MOVE RIGHT’ 

NE = ‘NET’ 

TIS = TIME 

PO = POSITION OF INDIVIDUAL BUG 
CA = ALIEN COUNT 

KB = KEYBOARD KEY 

K = CHARACTER KEY PRESSED 

PE = TEMPORARY 

CL = CLASS 

NE = NET POSITION 

| = VARIABLE 

J = VARIABLE 

J1 = VARIABLE 

V = VIDEO CHIP START ADDRESS 
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COSMIC BUGS 


1 POKE 55,255 + POKE 56,47 + V = 53248 : 
POKE V + 33,0 ¢ POKE V + 32,0 + POKE 54296,15 


39 DIM P (4) ,T ( 4) = FOR I = 0 TO 4 = 
T¢€¢ I) = 0 = NEXT = CO = 54272 + KB = 197 = 
LS = 1024 > CA = 90 

7 PO = 11 7 Lb = 12 + R = 20 + HI = OQ = 
FOR I = 12544 TO 12552 >; POKE I,0 = NEXT 


10 FOR I = 12288 TO 12415 + READ A = POKE I,A + 
+ POKE V + 24,28 
+ LI = 3 + P = 2004 + NE = 20 
+ § =- 1 3: SZ = O = RE = O = BO 
29 PRINT “Qi l@.”"s *+ FOR I = 1 TO 24 
PRINT " (©) #82"; = NEXT = PRINT “ 9 (Oo G8" = 
FOR I = 1 TO 23 = PRINT “ () @8A"; 
3O NEXT = POKE 56295,1 + POKE 2023,1 * PRINT 
* BS (] (2 (4) BB] &) BB) BD (0D (9D 1D (1D eID 
9D (9D (3D (9D 9D 1D fe) Ba" 
30 PRINT "C (eo @8 SAC (Oo 88 HEC (©) 88 88 BE 86 88 EE BBBEC 
o «. » » « » «2 « « «+ DBBBR OC) O08 08 28 88 88 GED OO 
BE GAD BE BED BBCOCOCOCOCOC"’; 
40 PRINT “OICOICOCOICOCOC"s = TIF = “OQOG000" = 
POKE 34278,32 = POKE 54277,0 = POKE 54276,0 
45 POKE 54276,17 
90 FOR I = 0 TQ 4 = K = PEEK ( KB ) * IF K <O L 
AND K <> R THEN 60 


‘+ N=- 1 
oO 


” i 


»>- (K=R) 
< > 32 THEN P 


ol 


60 POKE P + CO,7 * POKE P,PC 
65 IF T ( I) > O THEN 80 
70 IF RND ( 1) < .9 THEN 600 
72 P ( I) = INT ( LS + RND (1) * 40) 
75 T ¢( I) = INT ( RND (1) #241) 2 
IF RND ( 1) < CA / 6 THENT (1) =4 
80 ON T ( I ) GOTO 85,100,115, 135,170, 185,185,185 
85 CL = 2 = CH = 12 3 
D = INT ( RND (1) * 
PO =P (I) +D# PE 
IF PE = PC THEN 1000 
86 IF PE = 5 THEN PE = 32 
@7 IF PE = 7 THEN T (1) = & + POKEP (I) ,322 
P (I) = PO + CA = CA +1 + SC = SC + 202 
GOTO 185 
88 IF PE < > 32 AND RND ( 1) > .5S THEN 
D = INT ( RND (1)%* 3-1) 4 


3 - 1) + 40 = 
= PEEK ¢( PO ) =: 


Holl 


PO = P (1 ) + D = PE PEEK ¢( PO ) = GOTO 87 
90 IF PE < > 32 THEN D = 0 GOTO S0o 
95 IF PO > 1983 THEN 130 
97 GOTO Soo 
100 CL = 5 + CH = 13 + 
D = INT ¢( RND ¢ 1) * 3-1) + 40 = 
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101 
102 


103 


105 
110 
111 
112 
115 


116 


117 
120 
125 


130 


135 


136 
149 
145 


150 
152 
153 
155 
160 


165 
170 


175 


180 
182 
185 


PO =P ¢I1I)+D + PE = PEEK ( PO ) = 
IF PE = PC THEN 1000 
IF PE = 5S THEN PE = 32 
IF PE = 7 THEN T ( I) = 7 = POKE P ( I) ,32 = 
CA = CA + 1+ P CT) = PO = SC = SC + 40 = 
GOTO 185 
IF PE < > 32 AND RND ( 1 ) > .5S THEN 
D = INT ¢( RND (1) * 3-1) ¢ 
PO =P ¢ 1) + D = PE = PEEK ( PO) = 
GOTO 102 
IF PE < > 32 THEN D = 0 = GOTO 500 
IF PO > 1983 THEN 130 
IF RND ( 1) > .9 AND D > O THEN T (I) = 8 
GOTO 500 
POKE P (I) ,5 = CL = 35 + CH= 13 + D = 40 = 
PO =P ¢ I) + D =: PE = PEEK ( PO) = 


IF PE = PC THEN 1000 

IF PE = 7 THEN T ( I) = 8 + POKE P (I ) 4,32 = 
P¢ I) = PO = CA = CA + 1 + SC = SC + 60 + 
GOTO 185 

IF PE = 5 THEN PE = 32 

IF PE < > 32 THEN T ( I ) = O = GOTO 6900 

IF PO < 1984 THEN P (I) =PCI) + D$ 
GOTO SOS 

T¢( I) = 5 = POKE P (I) ,32 + 
P(I)>)=P¢t!I + D > POKE P ( I >) + €O,10 


) 
,15 = GOTO 600 
i 


) 


*5-1) + 402 
PO=P C(I) +D +: PE = 


PEEK ( PO) + 


IF PE = PC THEN 1000 

IF PE = S THEN PE = 32 

IF PE < > 8 THEN 153 

FOR J = 0 T0 4 + IF P ¢( J ) = PO AND 
T¢ J) > 5S THENT (€ J) = TCI) -S =e 
D=0 7 J = 4 = CA = CA —- 1 + NE = NE + 1 


NEXT J = GOTO 500 
IF PE < > 32 AND RND ( 1) > .5S THEN 
D = INT ¢ RND (1) 8% 3-1) # 
PO=P (TI) + D * PE = PEEK ( PO ) = GOTO 136 
IF PE < > 32 AND RND ( 1) > .S THEN 
D = INT ¢( RND (1) &€& 3-1) # 
PO =P (1) + D + PE = PEEK ( PO ) 
IF PE < > 32 THEN D = 0 = GOTO 500 
IF PO > 1983 THEN POKE P ( I ) ,32 = 
T¢ I) = 0 + GOTO 600 
GOTO 500 
CL = 10 = CH = 15 + 
D = INT ¢( RND (1) #& 3-1) © 
IF RND ( 1 ) > .1 THEN 
D=(PC(T)%O>P)-¢ PCI) < P ) 
PO =P (1) + D =? PE = PEEK ¢ PO ) = 
IF PE = PC THEN 1000 
IF PE < > 32 THEN D = O 
GOTO 500 
CL = INT ( RND (1) 415 + 1) 7+ CH=8 + D=0 
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532% TCI) =0O8% 


190 IF CA = 5S THEN POKE P ( J) 
+ 1 + GOTO 600 


CA = CA - 1 = NE = NE 
195 GOTO 505 
500 POKE P (1) ,32+P¢(1I)=PC¢1)+4D 
505 POKE P ( I ) + CO,CL ¢ POKE P (I) ,CH 
600 IF K < > 44 OR N > — 1 OR NE = O THEN 405 
601 N = P ¢ NE = NE — 1 = POKE 54290,0 ; 
POKE 54291,71 : POKE 54287,34 = POKE 54286,75 
602 POKE 54290,17 
605 IF K < > 47 OR S > — 1 THEN 610 
606 S = P + POKE 54290,0 +: POKE 54291,71 : 
POKE 54287,72 + POKE 54286,169 + POKE 54290,33 


610 IF N = — 1 THEN 650 
615 POKE N,32 + N= N—- 40 ¢ IF N < LS THEN N = - 1 
¢ GOTO 450 
617 IF RND ( 1) > .95 THEN N= N+ 40 ¢ 
POKE N + CO,4 + POKE N,7 + N = - 1 + GOTO 650 
620 IF PEEK ( N ) = 32 THEN POKE CO + N,4 ; 
POKE N,& = GOTO 4650 
640 N = N + 40 : POKE N + CO,4 + POKE N,7 + N= - 1 
650 IF S = - 1 THEN 700 
655 POKE S,32 + S = S - 40 + IF § < LS THEN S = - 1 
+ GOTO 700 


660 PE = PEEK (SS) ¢ C = PEEK ( S + CO) =; 
POKE S + CO,8 = POKE §,9 + IF PE = 32 THEN 700 
461 POKE 54290,0 + POKE 54287,8 + POKE 54286,37 : 
POKE 54291,36 = POKE 54290,129 


665 POKE S + CQ,7 = POKE 5,10 = FOR J = 0 TO 4 =; 
IF T ( J? =O ORP (J) < > S THEN 680 

670 IF T (J) > 3S THEN T(J? = TC JID - 5 =F 
Sc = $C + 3 + J = 100 + CA = CA - 1 = 
NE = NE + 1 = GOTO 680 

675 SC = Sse + 7T ( J >) ® 10 = TF RND (1) ¢ .7 
THEN T ( J) = 0 + J = 100 = GOTO 480 

677 FOR J1 = 0 TO 4 += IF T ¢ J1 >) = O THEN 
Tc Jo FS TFettdIod Fe PC JI > =P Od) = 
J1 = 100 = J = 100 


678 NEXT Ji = IF J1 < 99 THEN T (J) = 07 J = 100 
6BO NEXT J = IF J > 3S THEN POKE S,32 - GOTO 490 
682 IF PE = 7 THEN NE = NE + 1 += PE = 32 
683 IF PE = 5S THEN PE = 32 
685 POKE § + CO,C + POKE &,PE 
690 & =- 1 
700 POKE 54273, RND ( 1 ) * SO * POKE 54272, 
RND ( 1) * 256 += IF K = 60 THEN 800 
7O1 RE = O = IF SC < 25 THEN POKE V + 32,0 
7O2 IF TIS > “O000250" THEN POKE V + 32,7 + GOTO 704 
703 IF SC > = 25 THEN POKE V + 32,11 
704 IF BO = O AND SC > 1000 THEN SZ = 0 = BO = 1 
7OS NEXT I = IF TIS < “QOO300" THEN 50 
7O7 IF S > — 1 THEN POKE S,32 -+ S =- 1 
708 IF N > — 1 THEN POKE N,32 =; 
7190 FOR I =0 T0422 IF T (1 ) 
POKE P ( I) ,32 7+ T¢ I) =090 
7135 NEXT = NE = 20 = RE = > = 0 é 
717 POKE V + 33,7 + FOR I = 1 TO 1000 = NEXT = 
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POKE V + 33,0 

720 K = PEEK ( KB ) + POKE P,32 =: 
P=P-40+(K=L)-C€¢K=R) 

725 PE = PEEK ( P ) + POKE P + CO,7 + POKE P,PC : 
IF P < LS THEN P = 2004 + SC = SC + 100 + 
GOTO 25 

727 FOR I = 1 TO 50 = NEXT 

730 IF PE = 32 THEN 720 

735 LI =O+ 1=0+ P (1) =P # GOTO 1000 

g00 IF SC < 25 OR RE THEN 705 

g05 POKE Vv + 33,13 = SC = SC - 25 + FOR J =0 1T04 
+ IF T ( J ) = 0 THEN 820 

806 POKE 54290,0 +: POKE 54287,72 = POKE 54286,149 =: 
POKE 54291,17 + POKE 54290,129 

g10 IF SZ = 1 AND TJ < > 5S THEN 820 

g@i1i IF T ( J) > S THEN CA = CA —- 1 + NE = NE + 1 

815 POKE P (J) ,32: T(J) =0 

820 NEXT J + SZ = 1 = POKE V + 33,0 + RE = 1 + 

5 


o 


1000 POKE P (I ) ,32 + POKE V + 33,11 
FOR J = 1 TO 1000 ¢ NEXT 
1002 POKE 54290,0 + POKE 54287,4 + POKE 54286,73 : 
POKE 54291,240 = POKE 54290,129 
1005 POKE V + 33,12 + FOR J = 1 TO 1000 + NEXT 
1010 POKE Vv + 33,15 + FOR J = 1 TO 1000 + NEXT 
1015 POKE Vv + 33,0 + FOR J = 1 TO 1000 = NEXT 
1020 T(1I)=04# SZ=02+ LI =LI-1 +2 
IF LI > 0 THEN 700 
1025 POKE V + 24,21 + PRINT “ {J GaGAME . OVER" = 
PRINT “ (e {9 [6] (YOU . SCORED" ; SC 
1030 IF SC > HI THEN HI = SC 
1035 PRINT " [3g fe) (e] (HI . IS"3HI 
1040 PRINT ™ [© [6] (©) EAANOTHER . GAME?" 
1042 FORI =O T04+TC¢CI)=O2PC1)2=£0¢% 
NEXT 
1045 GET AS =: IF A = "Y" THEN RESTORE = GOTO 10 
1050 IF A$ < > "N" THEN 1045 
1052 POKE 54272,0 > POKE 54273,0 = POKE 54287,0 ; 
POKE 54286,0 
1055 END 
10000 DATA 128,128,126, 128, 128, 128,128, 128,1,1 
v1,1,1,1,1,1,0,0,0,0,0,0,0, 255 
10005 DATA 1,2,4,8, 16, 32, 64, 128, 128,64, 32,14,8 
,4,2,1,8,8,8,8,9,9,98,8 
10010 DATA 8, 28, 62, 28,8, 0,8, 8, 62, 107, 73,119 
» 73,107, 62, 0, 62, 65, 65, 73, 65, 65, 62,0 
10015 DATA 8, 28, 42, 42,8, 0,8, 0, 65, 34,54, 60, 252 
, 40, 34, 65,0, 65, 65, 65, 107, 107, 62, 28 
10020 DATA 54, 214, 124, 214, 54, 14, 40, 68,0, 144 
, 124,56, 254, 56, 68, 130 
10025 DATA 0,16, 40, 48, 130, 68, 40, 16,0, 68 
556,84, 254, 124, 130, 68 
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CHEXSUM 
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{=B79R3 
a=9 7:39 
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fo oo 
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—s 


ac HS 

2o=46 18 
GSW=1188 
B5=9 18 

FeE=H1119 
YO=I16E? 
YS=24P8 
S3=25R8 
SaB=Heed 
4abh=1183 
S,f="125 
He oa 
SMa 1 eAG 
HRs Lave 
Bs Mg ck 

[AaseAeSs 
{A@is1162 
{Ae=SitRe 
bE re eae i 
BA=1S66 


fae me 
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ioe 
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fete ned 
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Peso ade 
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m 
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io © ws 
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it fad ue 
if] 

J TQ 
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A 
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695=1735 
606=3769 
61ea=964 


E60=4070 
661=3298 
663=33964 


1196 
a= 495 
790=3346 
7O81=1879 
7AZ=P432 
7AR=1645 
704=2346 


m oH 


var=1r7e2 
YAB=1738 
7 


An 
I 

ru 
~] 
m) 
Lf 


| 
I 

m mM To 
£ 
m) 
“J 


a) 
ll 


ny) ry rm na fe be re 
2 —) Of 
nL 
lo 
OM w 
mo 
mw) 


ss] ajoalbo ml on] os) - 


CO 
Mm 
Ow & 
Wot ot 
ro oO 
Ww © 
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i 


HH=2437 


KY) 


1AS5=129 


1eaneaa=3948 


169@5=2289 
19@61@=942e 


1Bea1S 


=4215 


ella 


TOTAL. = 


S4R1a1 


Star Duel 


Ram challenges you to a dog fight. The game begins when you accept 
the challenge. 


You must avoid the ground, his craft and his missiles while trying to 
manoeuvre your craft into a position which will enable you to fire your 
missiles at him. 


Your craft is controlled by using the ‘W’ and ‘X’ keys to move up and 
down, and the ‘A’ and ‘D’ keys to shift left and right. When you have Ram 
in your sights use the ‘S’ key to fire your missile. 

Remember, if either craft is hit it will crash to the ground. 


Yours is the blue craft. See if you can outsmart him! 


112 


PROGRAM STUCTURE 
INITIALIZATION 


CHANGE DIRECTION OF OPPONENT 
(OR ON COLLISION) 


CALCULATE NEW POSITION AND MOVE OPPONENT 
IF HIT (YOU): DROP, MUSIC AND MESSAGES 


GET KEY PRESSED, IF HIT OPPONENT: 
DROP, MUSIC AND MESSAGES 


CHANGE DIRECTION OR HEIGHT ACCORDING 
TO KEY 


IF ‘FIRE KEY’ PRESSED 
POSITION BULLET 

NOISE 

MOVE IN DIRECTION D 

WRAP AROUND SCREEN 

IF HIT (YOU): DROP, MUSIC AND MESSAGES 
IF BULLET TRAVELLING 

MOVE 

IF IT HITS: DROP, MUSIC AND MESSAGES 

IF OPPONENT BULLET TRAVELLING 

MOVE 

IF IT HITS: DROP, MUSIC AND MESSAGES 
GO TO CHANGE DIRECTION OF OPPONENT 
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LINES 
O0— 25 
26 


27 — 48 
49 
50 


95 — 70 


12 

73 

74 

75 

80— 101 
102 — 104 
110 
120 — 131 
132 

150 
170 — 181 
182 


1000 — 1020 


DROP ROUTINE (YOU) 


2000 — 2020 


DROP ROUTINE (OPPONENT) 


5040 


5000 — 


MUSIC AND MESSAGE ROUTINE (OPPONENT) 


6040 


6000 — 


MUSIC AND MESSAGE ROUTINE (YOU) 


— 9110 


9000 


SPRITE DATA 


OPPONENT’S BULLET POSITION 
OPPONENT’S BULLET DIRECTION 


YOUR POSITION 
BULLET POSITION 
BULLET DIRECTION 


YOUR DIRECTION 
D1 = OPPONENT'S DIRECTION 


SX 


X1, Y1 = OPPONENT’S POSITION 


VARIABLES 
X, Y 

D 

SD 

SZ 

DZ 


Ht - 


PLAYER/ALIEN 
PLAYER/ALIEN 


Pete eteiccscs 


ETE a 
SESS 


g 

aS 
we: 

wee 


at 
J 
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STAR DUEL 


O 


10 


12 


14 


15 


16 


43 


POKE 54296,10 + POKE 54277,0 = POKE 54278,240 ¢ 
POKE 54276,9 = POKE 54276,129 + SX = 0 

POKE 54272,0 = POKE 54273,0 = PRINT "JQ" = 
POKE 53280,4 = POKE 533281,4 = CO = 54272 


- 


V = 53248 
POKE 2041,193 


POKE 2044,195 = 


- 
- 


POKE V + 28,31 += POKE V + 37,2 = POKE V + 38,7 

FOR I = 0 TO 254 = READ Q@ + POKE 12288 + I,Q = 
NEXT = POKE V + 21,31 += POKE V + 29,19 = 
POKE V,100 

POKE V + 2,200 = POKE V + 4,50 = 
POKE V + 6,230 = POKE V + 6,165 

GOSUB 4000 

PE = PEEK ( V + 30 ) = PE = PEEK ( V + 31 ) = 
X = 100 + Y = 60 = D= 42 X1 = 200 = 
Yi = 120 = D1 = - 4 

PRINT "HMMM OM eMo ao © @ ow @& 
GEGEQEGOEQR IRR sis BQE | TR | sie ©) | 
(IB IBI8 4a. BIR I I see BO I 
SeIBEIBIBIBIPM. 2. 1. «1 a MS 

PRINT “li. oo wa Me BAP. . MS BB 
Ph... . MB BEIM. . we 2) PP 
ee ee ee ee ee a eo 3 

PRINT “lado «2 «2 2 «2 2 2c MmM,.w.,. 1. 
Pho... u. zANMBBaM..w..s..,.NH FI 
Pe a a a a a ae 9 

PRINT RE. ak. ok de Si Sa es a, a a ee ees 
as dks ke, MID as Se ke es a a a es a a ec 
EI" - TA = INT ( RND ( 1) * 10 ) 

FOR I = 36256 TO 56295 + POKE I — C0O,160 = 
POKE 1,9 = NEXT 

FOR I = 56256 + TA TO S5837 + TA STEP — 39 = 
POKE I — CO,233 = POKE 1,5 + NEXT 

FOR I = 36278 + TA TO 55837 + TA STEP —- 41 = 
POKE I — CQG,223 + POKE 1,5 = NEXT 

FOR I = 0 TO 10 = FOR J = 
96257 -— I ¥ 40 + I + TA TO 56277 - I * 40 - I 
+ TA = POKE J —- €C0O,160 = POKE J,3 = NEXT 

NEXT 

IF RND ( 1) < .05 OR PEEK ( V + 30) = 2 
THEN D1 = —- D1 = POKE 54273,10 

X1 = X1 + D1 = IF RND ( 1) < .1 THEN 
Yt = V2 + ( ( Y2 > YO) - ( YI ¢ YY) ) & 4 
GOTO 30 

Yi = Y1 + ¢€ INT ( RND (1) * 3) -1%) % 4 

IF X1 < 10 AND Di = —- 4 THEN X1 = 320 

IF X1 > 320 AND D1 = 4 THEN X1 = 0 

IF Y1 < 60 THEN Y1 = 60 

IF Yi > 200 THEN Y1 = 200 

IF RND ( 1) > .2 OR Y1 < Y —- 10 AND 
Y1 > Y + 10 AND RND ( 1) < .30 OR 
S2 < > O OR X1 > 280 THEN 45 

S2 = X1 + ( D1 *¥ 5) = D2 = DI * 3 * 


POKE 2040,192 
POKE 2042,194 + 
POKE V + 40,5 ¢ 


- 


POKE v + 39,14 + 
POKE 2043,194 
POKE V + 43,0 =: 


- 
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IF Di = 4 THEN 52 = S2 + 30 + POKE V + 7,Y1 
FOR I = 50 TO O STEP —- 2 = POKE 54273,1 = 
NEXT = POKE 54273,0 


IF Di = — 4 THEN POKE 2041,193 
IF Di = 4 THEN POKE 2041,192 
POKE V + 3,Y1 + IF Xi > 255 THEN 


POKE V + 2,X1 - 256 => POKE V + 16, 
PEEK ( V + 16 ) OR 2 = GOTO 49 


POKE V + 2,X1 
AND 253 


+ POKE V + 16, PEEK ¢( V + 16?) 


IF PEEK ( V + 30 ) = 3 THEN 1000 
PE = PEEK ( 197 ) = IF PEEK ( V + 30 ) = 6 THEN 2000 
IF PE = 9 AND Y > 60 THEN Y = Y - 4 + 

POKE 54273, 200 


IF PE = 23 THEN Y 
= 10 THEN D 
IF PE = 18 THEN D 


IF PE 


4 + POKE 54273, 200 
¢ POKE 54273,10 
POKE 54273,10 


Y + 
— 4 
4: 


IF PE < > 13 OR SX < > O OR X > 200 THEN 75 

SX =X + (D* 353) + POKE V+ 5,Y + SD=Dkx 3 
> IF D = 4 THEN SX = SX + 30 

FOR I = 50 TO O STEP - 2 + POKE 54273,1 = 
NEXT = POKE 54273,0 

X =X + D+ IF D = 4 THEN POKE 2040, 192 

IF D = — 4 THEN POKE 2040, 193 

IF X < 10 AND D = —- 4 THEN X = 320 


IF X > 320 AND D = 4 THEN X = 0 
> I 


POKE 54273,0 = 


POKE V + 1,Y F X > 255 THEN 


POKE V,X -—- 256 + POKE V + 16, PEEK ( V + 14 ) 


OR 1 = GOTO 
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POKE V,X = POKE V + 16, PEEK ( V + 16 ) AND 254 
IF PEEK ¢( V + 300 ) = 3 THEN 1000 


IF PEEK ( V + 30 ) 


9 THEN 1000 


IF PEEK ( V + 31 ) = 1 THEN 1000 


IF SX = O THEN 


150 


IF SX < 10 OR SX > 310 THEN SX = 0 =: SD = 0 : 


POKE V + 5,0 
SX = SX + SD : 


* POKE V + 4,50 
IF SX > 255 THEN 


POKE V + 4,SX ~—- 256 = POKE V + 14, 
PEEK ¢( V + 16 ) OR 4 = GOTO 132 


POKE Vv + 4,S%x 
AND 251 


+ POKE V + 16, PEEK ( V + 16 ) 


IF PEEK ( V + 30 >) = 6 THEN 2000 


IF S2 = QO THEN 


26 


IF $2 < 10 OR S2 > 310 THEN S2 = 9 + D2 =0: 


POKE V + 7,0 
S2 = S2 + D2 ; 


+ POKE V + 6,230 
IF S2 > 255 THEN 


POKE V + 6,52 —- 256 = POKE V + 16, 
PEEK ( V + 16 ) OR 8 = GOTO 182 
POKE V + 6,52 = POKE V + 16, PEEK ( V + 16 ) 


AND 247 


IF PEEK ( V + 30 } = 9 THEN 1000 


GOTO 26 


= POKE V 


POKE V + 7,0 = FOR I = Y TO 200 
,I + POKE 54273,1 

: NEXT ¢ NEXT + POKE 54273,0 

: POKE V + I,0 + NEXT 
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1020 
2000 


2005 
2010 
2020 
4000 


4001 
4002 


4003 
4004 
4010 


4020 
4025 
4026 


4028 
4030 


4040 


4050 
4060 


4065 
4066 
4067 
4070 
43000 


9001 
3002 


09003 
9010 
2020 
9025 
2030 
9035 


0040 
6000 


6005 


6010 


6020 


GOTO 5000 

POKE V + 4,0 ? POKE V + 5,0 + 
FOR I = Y1 TO 200 + POKE V + 3,1 = 
POKE 54273,I 


FOR J = 1705 NEXT = NEXT *« POKE 54273,0 


a & 


FOR I = 1 TO 7 POKE V + I,Q = NEXT 

GOTO 6000 

PRINT ™ 653 (38 it: iW: de ul: AL AI 00 0 i ub a a a oe 
m STAR . DUEL (3§ iT? i: i i i iG iG oP a a ot cn cn "5 

FOR I = 1 70 11 

PRING -f--7 sh ch te eb i ce eek tbe ei: 
Peeks 

NEXT 

POKE V + 8,165 = POKE V + 9,100 


PRINT “iy; m .« wo I «4 AM . RAM . OF . PLANET 
a2 BYTE. I 4. HAVE . CHOSENs~ « YOU . TO . DEFEND 
4 YOUR . PLANET." 


PRINT “lajI . CHALLENGE .« YOU . TO .A. DUEL!" 

PRINT "DO. YOU . ACCEPT?" 

GET AS = IF AS = "N“ THEN PRINT “ EXYCOWARD" = 
END 

IF AS < > "Y" THEN 4026 

PRINT “ . « THE « DUEL ,. WILL «. BE . ABOVE . THE 


4 PLANET . MARS” 

PRINT “€) . «4. II . MUST . WARN . YOU . THAT . ONLY 
4 ONE . OF . YOUR. 4. 4 SHOTS . CAN . DESTROY . ME." 

PRINT “m . «4 YOU . HOWEVER . CAN . CRASH!" 

PRINT "tej ff}. . « «PRESS , *SPACE’ . WHEN . YOU 
a ARE . READY." 

GET AS = IF A# < > " . “ THEN 4065 

PRINT "2" = POKE V + 9,0 

POKE 53281,0 = POKE 53280,0 

RETURN 

POKE 53280,4 = POKE 53281,4 + PRINT “f&J" = 
POKE 34273,0 

PRINT "€39"5 + FOR I = 1 70 12 


PRINT "it; U0 OG Ob on? OD ib on rn Dee i 
ral aie a Se Fiera Pea) eal ew Cis ieee Fas bee eed foe bee bees Ea bare ae 
ils ites 

NEXT 


PRINT "“ mg GOODBYE,MORTAL. YOU . FOUGHT . WELL." 
PRINT “ tf (4 (6) @§DOES . ANOTHER . HUMAN . DARE 

a TO . CHALLENGE . ME?" 
GET AS = IF AS = “Y" THEN GOSUB 40466 += GOTO 7 


IF AS < > “N" THEN 5025 

PRINT " m VERY 4. WELL, THE . EARTH . WILL . SOON . BE 
a MINE!" 

END 


POKE V + 23,16 = POKE 53280,4 + POKE 533281,4 =< 
POKE V + 6,150 + POKE V + 9,100 = POKE 54273,0 

POKE 34296,0 + POKE 54296,15 + POKE 54276,0 + 
POKE 54276,17 

PRINT td BS LO) LED CD COD C0) Co) Cod Co) Ce Cod Ce Cot Ce (eT a AM 
4 DYING . EARTH . MAN!" . 

FOR I = 1 TO 200 = POKE 534273,1 = NEXT = 
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6025 
6026 


POKE V + 9,0 + FOR I = 100 TO 1 STEP - .5 
POKE 54273,I = NEXT + FOR I = 10 TO 50 STEP .5 
POKE 54273,1 + NEXT + POKE Vv 

POKE V + 29,0 : POKE V + 8,150 : 

POKE V + 9,100 
FOR I = 1 TQ 50 STEP .5 + POKE 54273,1 + NEXT = 

POKE V + 8,0 + POKE V + 9,0 + FOR I = 20 To 1 

STEP — .2 
POKE 54273,I + NEXT + POKE 54273,0 
PRINT "im imiGOODBYEEE!!!'" 

GET A® + FOR I = 1 TO 5000 + NEXT = PRINT "(" 
END 
DATA 0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,3 

50,0, 3,0,0,3, 192,0, 3, 192,0,19, 240,0 
DATA 7,176,0, 67, 247, 128, 7, 183, 32,83, 247 

» 245, 2, 164, 245, 2, 240,0 
DATA 0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,9,192,0,0,192,0,3,192,0, 3,192,0,15,196 
DATA 0, 14, 208, 2, 223, 193,8, 222, 208,95 

, 223,197, 95, 218, 128, 0, 15, 128,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0 
DATA 0, 21,0,0, 127, 64,0, 21,0,0,4,0,0,0 

50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
DATA 60,0,60,12,170, 48,15, 170, 240,14 

, 170,176, 2, 130, 128, 2,0, 128, 2, 60,128 
DATA 10,40, 1460, 10,9, 160, 10,0, 160,8,0 

, 32,8, 170, 32,8, 150, 32,8, 150, 32,998,170 
DATA 37,88, 0,37, 90,0, 165, 21,170, 84, 21 

,130,84,5, 170,80,5,170,80 


a> 4b 


SPRITE 


PLAYER/ALIEN 
MISSILE 
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CHEXSUM 


i to Tu 
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Mm to co 
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wt 
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-] 


Po TO TO TU ee ee 
row 1 
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Bu 


fo fo to Po 
KS 
I 


m ol 


44=2626 
45=1460 
46=1280 
47=4943 
AS=2376 
49=1456 

=2310 
55=2619 
6Q=2067 
65=1917 
78=1756 

=2475 
7e=41271 
74=P626 


{He=-1498 
1@3=1456 
164-1456 
119=8s8e 
12O=381e 
126=35138 
131=2405 
ise=1468 
150@=73e2 
17H=3731 
18S6=4966 
I8Si=237e 
iee-i456 
ig@=4d7r4 
1BOB=348e2 
1MOS5=1676 
{Mi@=1528 
1H290=583 
2° HAGH=356 1 
“A6O5=1676 
fe@18=1528 
2PAPBb=58s3 
4AHO=8393 
4OAl=7il 
4AAP=95e2e5 
4HO3=131 
4AA4G=1438 
4H18=6673 
4628=2244 
aoe S=12?o1 
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TOTAL= 


4666-1805 
4Oev=1171 
4870@=143 
TABOO =2305 
2481-1122 


a) ie | 
mM © c 
ho FO TO re 
SO w 
tl 
ro . 
w : 
i 
oy 


i (IX) 
O 

li 

pont 

j— 

0 

0 


6Q29=3641 
6025-1914 
6026=3755 
6aeS=-45n8 
6A29=1365 
GO30=130a2 
6g25=1964 
6A4dea=129 

9908-40123 
9A19=3247 
9920-1896 
90329-4499 
9049-4429 
99508-1307 
AN6O8=3865 


Cowboy Shootout 


Shoot the computer-controlled cowboy as many times as you can 
without him shooting you. As you shoot it out you have to avoid the 
wagons passing between you. You can’t shoot through them. 


Your controls are: 
"‘W’ for up 
‘X' for down 
‘S’ to fire 
You're on the left, the computer is on the right. 


Straight shooting! 
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PROGRAM STRUCTURE 
INITIALIZATION 

GET KEYBOARD CHARACTER 
PUT PLAYER AT RESULTANT POSITION 
PUT COMPUTER 

PLAYER SHOOTS 
COMPUTER SHOOTS 

MOVE CARRIAGE 

SHRINK CARRIAGE 

TEST IF PLAYER SHOT 

TEST IF COMPUTER SHOT 
TIME DISPLAY 

DATA 


VARIABLES 
K = KEYBOARD CHARACTER 


LINES 

1— 45 

50 

55, 57 

60 — 80 

85, 90, 130, 135 
100, 125, 155, 160 
165 

170 

175 

176 

182 

10000 — 10115 


A = ALTERNATELY HOLDS THE POSITIONS OF COMPUTER AND 


PLAYER 
PS = PLAYER SHOOT FLAG 
CS = COMPUTER SHOOT FLAG 
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COWBOY SHOOT-OUT 


1 


ra) 


10 


is 


20 


25 


45 


50 


v0 


a7 


60 


100 
105 


110 


125 
130 


135 
150 
155 


POKE 54296,0 + POKE 55,255 + POKE 56,47 
* V = 53248 + POKE 54296,15 
FOR I = 0 TO 510 = READ A + POKE 12 * 1024 + I,A 
+ NEXT + PRINT " mJ" 
POKE 2040,192 + POKE 2041,192 + POKE V,86 
+ POKE V + 1,50 + POKE V + 2,244 
+ POKE V + 3,200 
POKE V + 39,14 + POKE V + 40,7 = POKE V + 33,8 
+ POKE V + 32,5 + POKE V + 28,19 
+ POKE V + 37,9 
POKE V + 38,10 = POKE V + 21,19 + POKE V + 41,1 
s POKE V + 42,1 +* POKE 2042,198 = POKE 2043,198 
POKE 2044,199 = POKE V + 43,7 + POKE V + 8,160 
+ POKE V + 9,248 + POKE V + 23,16 
+ POKE V + 29,16 
KB = 197 + PS = 0 + CS = 0? PC =0: 
A = PEEK (V+ 30) + CO=0+ YO=0 
TIS = "000000" 


wo if oo 


K = PEEK ( KB ) ¢ A = PEEK (V+ 1 ) 
A=A+ (K = 23) & (A < 225) 
*2-(K=9) *& (A> 50) 82 

POKE V + 1,A + PC = PC + 1 


+ IF PC = 3 THEN POKE 2040,192 = PC = O 
cc = CC + 1 > IF CC = 3 THEN POKE 2041,192 


+ CC = 0 
A = PEEK (V +3) 
+ IF RND (1) > .3 
THEN A = A + INT ¢( RND (1) 8% 3-1) #€ 2 
GOTO 70 


A=A+ (A > PEEK (V+1) ) 
*2- (A < PEEK (V+1)) 482 
IF A > 255 THEN A = 255 
IF A < 50 THEN A = 50 
POKE V + 3,A + IF K < > 13 OR PS THEN 100 
POKE 2040,194 + PC = 0 =: PS = 1 +? POKE V + 4,98 
+ POKE V + 5, PEEK (V+1) 
* POKE V + 21, PEEK ( V + 21.) OR 4 
POKE 54273,17 + POKE 54272,37 + POKE 54277,24 
+ POKE 54276,0 +: POKE 54276,129 
IF RND ( 1) < .9 OR CS THEN 125 
POKE 2041,193 + CC = 0 + CS = 1 + POKE V + 6,232 
: POKE V + 7, PEEK (V+3) 
: POKE V + 21, PEEK ( V + 21 ) ORB 
POKE 54287,17 + POKE 54286,37 : POKE 54291,24 
+ POKE 54290,0 + POKE 54290, 129 
F PS = O THEN 150 
= PEEK (V +4) +8 
> IF A > 255 
THEN POKE V + 21, PEEK ( V + 21) - 4 
+ PS = 0 + GOTO 150 
POKE V + 4,A 
IF CS = O THEN 165 
V+6)-8 


I 
A 
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160 
165 
170 
175 
176 
177 
180 
182 
185 
190 
195 


200 
205 


210 


215 


1000 


1005 


19010 


1015 


1020 


1025 
2000 


2005 


2010 


2015 


2020 


2025 
2030 
10000 


10005 


THEN POKE V + 21, PEEK (V+ 21) -8 
+ CS = 0 = GOTO 175 

POKE V + 6,A 

POKE V + 9, PEEK (V+9)-4 
: IF PEEK ( V + 9 ) = 8 THEN POKE V + 23,16 
+ POKE V + 29,16 + POKE V + 9,244 

IF PEEK ( V + 9 ) = 120 THEN POKE V + 23,0 

: POKE V + 29,0 

= PEEK ( V + 30 ) + IF A = 9 THEN 1000 

IF A = & THEN 2000 


IF A = 20 THEN PS = O = POKE V + 4,0 
IF A = 24 THEN CS = 0 = POKE V + 6,90 
PRINT " la“ 5 TIS 


IF TIS < "000100" THEN 50 
POKE V + 33,0 ¢ POKE V + 27,255 
¢ PRINT " {2 ESTIME . UP" = PRINT “ (@] [6] (}SCORE: " 
PRINT “i Wl @lM@m@you. . . . ."sYO 
+ PRINT "COMPUTER" 3CO 
PRINT “ (69 (9 (6) 6] ESANOTHER . GAME?" 
GET AS + IF AS = "Y" THEN POKE V + 27,0 
+ PRINT “€2" + GOTO 10 
IF AS < > "N" THEN 205 
POKE V + 27,0 + POKE V + 21,0 + POKE 54273,0 
+ POKE 54272,0 = POKE 54287,0 + POKE 54286,0 
+ END 
POKE 2040,196 + T® = TI® + POKE 54273,34 
+ POKE 54272,75 + POKE 54276,0 +: POKE 54277,240 
POKE 54276,17 + POKE V + 28, PEEK ( V + 28) OR 8 
+ POKE V + 6, PEEK ( Vv ) 
+ POKE V + 7, PEEK ( V +1) 
POKE V + 21, PEEK ( V + 21 ) OR 8 + POKE 2043,197 
FOR I = PEEK ( V + 1) TO O STEP - .1 
+ POKE V + 7,1 * NEXT 
POKE 2040,192 + CS = 0 
POKE V + 21, PEEK ( Vv + 21 
POKE V + 28, PEEK ( V + 28 
POKE 2043,198 
co = CO + 1 + GOTO 2030 
POKE 2041,195 + T$ = TI$ = POKE 54287,34 
: POKE 54286,75 : POKE 54290,0 + POKE 54291, 240 
POKE 54290,33 + POKE V + 28, PEEK ( V + 28) OR 4 
+ POKE V + 4, PEEK (V+ 2) 
+ POKE V + 5, PEEK (V +3) 
POKE V + 21, PEEK ( V + 21 ) OR 4 # POKE 2042,197 
FOR I = PEEK ( V+ 3) TOO STEP - .1 
+ POKE V + 5,I + NEXT 
POKE 2041,192 + PS = 0 
POKE V + 21, PEEK (V+ 21) —- 4 
POKE V + 28, PEEK (V+ 28) -— 4 
POKE 2042,198 °° 
YO = YO + 1 
A = PEEK ( V + 30) + TI% = T# + GOTO 50 
DATA 0,4,0,0, 21,0,0, 12, 0,0, 12,09, 2,170, 160, 10,170, 
168, 8,170, 136,8, 42,8 
DATA 8, 42,9,8,985,8, 11, 106, 56,0, 21,0,0, 21,0,0,17, 
0,0,81,64,0,81,64,0, 64, 64 


> - 8 
>» - 8 


a> 4b 4b 


a> 4b ab 
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10010 DATA 0, 64, 64, 0, 64, 64, 0, 64, 64, 0, 64, 64,99 

10015 DATA 0,0,0,0,4,0,0,21, 0,80, 12, 0, 48, 12, 0, 42, 42, 
64,10,170, 160,0,170,8 

10020 DATA 0, 42,8, 0, 42,8, 0, 21, 32,0, 41, 48, 0, 21, 0,0, 21,0, 
0,81,0,1,65,0,1,1,0,1,1,0 

10025 DATA 1,1,64,1,0,84,5,0,4,99 

10030 DATA 0,0,0,0, 16,0, 0, 84, 0, 0, 48,5, 0, 48, 12, 2, 148, 
168, 10,170, 160, 32,170,0 

10035 DATA 32, 168, 0, 32, 168, 0, 8, 84, 0, 12, 104,0,0,84,0,0,84, 
0,0, 69,0,0,65, 64,0, 64 

10040 DATA 44, 0, 64,64, 1,64, 64, 21,0, 64, 16, 0, 80, 99 

10045 DATA O, 0, 0,0,0,0, O, 0,0,0,0,0,0,0,0,0,0,0,0,4,0,0, 
0,0,0,0,0,0,0, 6; Oo, 0, 0,9, O 

10050 DATA 6,0,0,0,4,0,5, 21, 165, 80, 174, 165,44, 2, 128, 
17,0, 160, 4,0, 128, 0, 2,128 

10055 DATA 0,58,0, O, 99 

10060 DATA 0,0,0,0,0,0,0,0,0,0, 0,0, 0,0, 0,0,0,0, 0,9, 0,0, 
0,0, Q, 0, Q, Q, Oo, 0, 0,0,0,0,0 

10065 DATA 0,0, 0,0, 80, 0, 16,5, 90, 84, 1, 90, 184, 468, 2, 128, 
16, 10,0, 0, 2,0,0, 2, 128 

10070 DATA 0,0,172,99 

10075 DATA 0,12,0,2, 12,32, 10, 42, 40, 10,170, 168, 10,170, 
168, 10, 170, 168, 10,170, 168 

10080 DATA 10, 187, 168, 10, 170, 168, 10,170, 168, 10,42, 40, 
10, 42, 40, 2,42, 32,2, 34,32 

10085 DATA 2,34, 32,0, 34,0,0, 34, 0,0, 34,0,0, 34,0,0, 34,0, 
0,0,0,99 

10090 DATA 0,0,0,0,0, 

10095 DATA 0,0,0,0,0, 
0,0,0,0,0,0,0, 

10100 DATA 0,0,0,0,0,0 59, 0,0, 0, 0,0, 0,99 

10105 DATA 0,0,0,0,8,0,0, 170, 128, 2, 170, 160, 10, 128, 148, 
10,0, 40, 10,0, 40, 10, 1,40 

10110 DATA 10,5, 104, 10,3, 40, 10,5, 104, 10,1, 40, 19,1, 40, 
10,1, 40,5,85,84,0,4,0 

10115 DATA 1,4,16,1,4,16,1,985, 80, 1,9, 16,1,0,16 


16,0, 


0,0 0,0, 
0,0 0,0,0,0,0,0,0, ,0,0,0,0,0, 
Q 


3 5 
3 9 
0,0,0, 
39; 
Oo, 


QO, 
Q, 

0,9,0,9 
QO, 
1 


SPRITE 


PLAYER/ENEMY CARRIAGE 
SHOOTING 
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SESRSeReneaseen 
BSRUSPBSRRARAeAR 
BURBReReaeaeeaR 
BERURURERERSER 
Beasaseeasase: |: 
SBGBReaeReaese:§ -: 
BEREROeReaearas | 
BSaeasasRe * 


CHEXSUM 


Ls 
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G 
upon) 
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3295 


“a 


‘ a 


are 


gy 


La3 
=42315 SPRITE 


HaAB=L 


3 FE 
& 


agd4 


_ 
— 


138 


Aas 


14 


3385 


19HS5=7 18 


i@ese 


t 
+ 


=B863 
453 
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PLAYER/ENEMY 
GHOST 


5 


1S5= 


=4315 


BEA 
ABES 
iBo7a 


4 


37st 
656 


{ 
L 


19988 


=446 


mm a 
tT Gi 
ao ost 
ro 
al 
nm & 
oo om) 
Gq Gi 
qo © 
wt ol 


135=2409 


3:3 SPRITE 


Gi 


BULLET 


=15=4098 
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Earth Defense 


You are left with insufficient fuel to make it back to earth so you embark 
on a suicide mission to kill as many aliens as possible with your 
remaining fuel. 


Your controls are: 
‘W’ up 
‘x’ down 
‘A’ left 
‘D’ right 
‘S’ to fire 
‘space bar’ for shields 


You have shields to protect your spaceship, however these use a lot of 
fuel and only last for a couple of seconds. 


While shielded your craft will be a grey colour. 
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PROGRAM STRUCTURE 
INITIALIZATION 

SET UP DISPLAY 

GET KEYBOARD CHARACTER 
UPDATE SCORE 

TEST WHICH KEY PRESSED 
FIRE PLAYER’S MISSILES 
SHIELD CONTROL 

UPDATE FUEL 

RANDOM DIRECTION OF COMPUTER 
COMPUTER FIRES MISSILE 
TEST IF PLAYER IS HIT 
MISSILES COLLIDE 

PLAYER EXPLODES 

PLAYER HITS SHIP 

DATA 


VARIABLES 
PE = LAST KEYSTROKE 
F = FUEL 


SH = INCREMENT FOR PLAYER'S MISSILE 
P = HORIZONTAL POSITION OF PLAYER 
YP = VERTICAL POSITION OF PLAYER 


LINES 


13— 18 

20 — 23, 900 — 930 
24 

25 

26 — 30 

31 — 39, 950 — 970 
40 

42 — 49 

800 — 840 

21, 200 — 210 
9000 — 9140 


SY = VERTICAL POSITION OF PLAYER'S MISSILE 
SX = HORIZONTAL POSITION OF PLAYER'S MISSILE 


X = HORIZONTAL POSITION OF COMPUTER 
Y = VERTICAL POSITION OF COMPUTER 


EX = HORIZONTAL POSITION OF COMPUTER'S MISSILE 
EY = VERTICAL POSITION OF COMPUTER'S MISSILE 
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EARTH 


6) 


DEFENCE 


POKE 55,255 + POKE 56,47 * PRINT "i" 
¢ POKE 53281,0 + POKE 53280,0 =: V = 53248 
+ CO = 54272 
SM = 0 =: FOR J = 1 Ta 30 
¢ I = RND ( 1) & 1000 + 55296 : POKE I,1 
+ POKE I -— CO,46 + NEXT 
POKE V + 21,31 + POKE 2040,192 + POKE 2041,193 
¢ POKE 2042,194 + POKE 2043,195 + POKE 2044,196 
POKE V + 39,8 + POKE V + 40,3 = POKE V + 41,7 
+ POKE V + 42,10 + POKE V + 43,5 
FOR I = 0 TO 318 + READ @ + POKE 12288 + 1,Q 


+ NEXT + POKE 54296,1 + POKE 54278, 240 
¢ POKE 54276,129 

P = 120 = YP = 200 + POKE V,P + POKE V + 1,YP 
: X = 50 + INT ( RND (1) * 180) + Y=0 


POKE V + 2,X + POKE V + 3,Y 
PE = PEEK ( V + 30 ) + F = 0 # POKE 54272,108 
s POKE 54273, 223 
PRINT " 9 fe) (©) ©] G8 88 88 88 Of 88 (SSCORE=" 
+ POKE V + 4,200 


PRINT “ bd (ey Ce} fe} (ed (ed fe} fe) fe) fe) Be Se id Ce LE 
CU | OR | BGS | Ge | Ce | eee | ee) 
| Cs | OR | RC | ee | eee | ee 

PE = PEEK ( 197) * F=F O1 = POKE V + 39,8 
+ UF HH < > O THEN POKE 3 

PRINT “ fa [el () (6 


{e] | 
POKE 55613 + INT ( F ) & 40, 
IF PE = 10 AND P > 

< 


F=F + .01 


IF PE = 9 AND YP > 175 THEN YP = YP - 5 
+ F =F + .O1 
IF PE = 23 AND YP < 230 THEN YP = YP + 5 
> F =F + Ol 
IF PE = 13 AND SH = O THEN GOSUB 900 
IF PE 60 AND HH = O THEN HH = 1+ F =F +1 


IF SH = O THEN 24 
= 1102 + SY = SY — SH + POKE V + 5,SY 
IF PEEK ( V + 30 ) = & THEN GOSUB 200 
IF SY < 60 THEN SY = 0 = SH = 0 + SX = 150 
s POKE V + 5,0 
NEXT 
IF HH < > O THEN HH = HH 
¢ IF HH = 10 THEN HH = 
POKE V,P + POKE V + 1,YP 


1 


oo +t 


IF F > 15 THEN 100 


IF RND ¢ 1) < 4.1 
THEN RN = INT ( RND (1) & 3-1 ) 
=: IF RN = O AND RND ( 1) < .1 THEN 26 


IF X > 239 THEN RN = — 1 


X = X + RN & 4 = IF X < SO THEN RN = 1 
Y= Y+42 IF ¥Y > 235 THEN Y = 0 

+ X = 50 + INT ( RND ( 1 ) # 180 ) 

> SM = SM + 1 
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30 POKE V + 2,X + POKE V + 3,Y 
31 IF EY = © AND RND ( 1) < .1 AND Y < 220 
THEN EY = Y + 20 
+ EX = X + POKE V + &,X + GOSUB 950 
32 IF EY = O THEN GOTO 10 
35 FOR I = 1 TO 2 = EY = EY + 6 = POKE V + 7,EY 
2 POKE V + 4,EXx 
36 IF RND (1) < .2 
THEN EX = EX + ( ( EX >P)-— (CEX<P)) 45 
37 IF EX < 35 THEN EX = 35 
38 IF EX > 238 THEN EX = 238 
39 IF EY > 235 THEN EY = 0 + EX = 0 + POKE V + 7,EY 
+ POKE V + 6,EX + GOTO 10 
40 IF PEEK ( V + 30 ) = 9 AND HH = © THEN 300 
42 NEXT + IF PEEK ( V + 30) < > 12 THEN 10 
43 POKE 54273,0 + POKE 54272,0 + POKE 542946,5 
¢ FOR I = 30 TO 1 STEP — 1 ¢ POKE 54273,1 
+ NEXT 
44 POKE 54296, 1 
46 POKE Vv + 5,0 


¢ POKE 54273,223 = POKE 54272,108 
POKE V + 7,0 + POKE V + 8,EXx 


+ POKE V + 9,EY 

47 FOR I = 1 TO 100 + NEXT 

48 EX = 50 + EY = 0+ SY=0 84 SX =0+ SH=0O 
> POKE V + 6,0 + POKE V + 9,0 


49 GOTO 10 
100 GOSUB 800 
110 PRINT “ (2 (YOU’VE 4. RUN . OUT . OF , ENERGY!" 
120 PRINT “ (6) 6] (0 GSHARD . LUCK, . WELL . DONE . 
FOR . SURVIVING . FOR . SO . LONG!" 
150 PRINT "HOO 6 OO @ a © @ © © &) 4 fe) 


a a ae 
160 PRINT " ff) f9D0 . YOU . WANT . ANOTHER . GAME?" 
170 GET AS = IF AS = “Y" THEN RUN 


180 IF AS < > "N" THEN 170 
190 PRINT "m& [6] BYE" 
195 END 
200 POKE 54272,0 : POKE 54294,10 
+ FOR I = 50 TO 1 STEP — 1.5 + POKE 54273,1 
+ NEXT 
201 POKE 54296,1 + POKE 54273,223 + POKE 54272,108 
202 POKE V + 2,0 = POKE V + 3,0 + POKE V + 8,X 
+ POKE V + 9,Y 
205 S = S§ + 10 + IF Y = SY THEN S = S + 40 
206 FOR Z = 1 TO 100 + NEXT + POKE v + 9,0 
+ POKE V + 9,0 
210 SH = 0 + SY = 0 + SX = 0 + Y = O = RETURN 
300 GOSUB 800 
310 PRINT "(YOU . GOT . HIT . BY . AN . ENEMY . MISSILE! !" 
315 PRINT “ #§ [6] @IHARD . LINES!" 
320 PRINT " [el fe] ESSCORE:";S 
325 PRINT "ENERGY . UNITS , USED"; INT ( F ) 
330 PRINT " GSENEMY . CRAFT . NOT . DESTROYED"; SM 
340 PRINT " (#] ©] KENOT . BAD!" 
350 GOTO 150 
goo FOR I = 1 TO 7 = POKE V + 


1,0 + NEXT 
801 POKE 54273,0 + POKE 54272,0 + 


POKE 54276,0 
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805 POKE 54296,15 = POKE 54276,129 
810 POKE V + 8,P + POKE V + 9,YP 
820 FOR I = 50 TO 1 STEP — 1 + POKE 54273,1 = NEXT 
+ POKE 54273,0 + POKE 54272,0 + POKE 542964,1 
B30 POKE Vv + 8,0 + POKE V + 9,0 
B40 RETURN 
900 POKE 53280,2 + 
+ POKE V + 4, 
910 POKE 54273,0 : 
+ FOR I = 0 TO 150 STEP 3 
+ NEXT 
920 POKE 54273,0 + POKE 54296,1 
930 RETURN 
950 POKE 54273,0 + POKE 54272,0 + POKE 54276,0 
+ POKE 54276, 33 
960 POKE 54273,50 + FOR ZX = 1 TO 50 = NEXT 
¢ POKE 54276,129 * POKE 54273, 233 
¢ POKE 54272,108 
970 RETURN 
7000 DATA 0,0,0,0,8, 0,0, 28, 0,0, 28,0, 0, 62,0, 0, 127,0, 
0,127,0,0, 127,0,0,127,0,2 
9010 DATA 127,32, 2, 28, 32, 7, 28,112, 2,62, 32, 6, 255, 
176, 7, 235, 240, 7, 235, 240, 15, 255 
9020 DATA 248,15, 62, 120, 28, 28, 60, 24,0,12,0,0,0,99 
9030 DATA 0,130,090, 64, 130, 4,112, 214, 28, 120, 254, 60, 
124,124, 124,62, 56, 248, 31, 255 
9040 DATA 240,15, 255, 224, 7, 255, 192, 1, 255, 0,0, 254, 0, 
12, 108, 96, &, 108, 192, 7, 255, 192 
9050 DATA 3,255, 128, 1, 255, 0,0, 254,0,0,56,0,0,16,0,0, 
16,0,0,16,0,99 
9060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0, 2,0 
9070 DATA 32,7,0, 112, 15, 128, 248, 31, 193, 252, 24, 
193, 172, 18, 65, 36, 2,0,52,0,0,0 
9080 DATA 0,0,0,2,0, 32,99 
9090 DATA 0,0,0,0,0,0,0,0,0,0, 1, 215,0,0, 254,0,0, 
254,0,0,124,0,0, 16,0,0 
9100 DATA 16,0,0, 16,0,0, 124, 0,0,56,0,0, 16,0,0,16, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
9110 DATA 0,0,0,0,0,0,99 
9120 DATA 3,12,0,0,3,0, 192, 192,195, 3, 204, 192, 12,3, 
12,0,12,48,0,51,3,48,51,0 
9130 DATA 3,12,0,0,3,0, 192, 192,195, 3, 204, 192,12, 
3,12,0,12,48,0,51, 3, 48,51,0 
9140 DATA 3,12,0,0, 3,0, 192, 192, 195, 3, 204, 195, 3, 204,195, 3, 204 


H = 6 + SX = P = SY = YP 
X + F =F + .05 + POKE 53280,0 
OKE 54272,0 = POKE 54296,10 

+ POKE 54273,I 


UHH 
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CHEXSUM 
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44=2081 
46=2819 
47=964 


i1@=2462 
1-6-4618 
{508=3833 
166=2289 
i7O=1263 
1SH=11e5 
19a8=-673 

{35=129 

fHAB=3518 
261-2625 
“HP=-P616 
2A5=2122 
2A6=2345 
21-1568 
348 =302 

314@=2934 
315=1255 


my 
o 
| 

co 
a) 
fa 


© 
I 


310=290960 
9FH=1167 


3660-3985 
2/7°8@=1423 
98H@=3986 
S@18@=4328 
A820 =2298 
SO20=4196 
S6@40=4557 
SOQS58=32223 
9366@=4317 
9878=3964 
S680=926 
S399@=3439 
3180=4456 
3116-8623 
3120=3912 
S31s@=3912 
914@=2875 


TOTAL= 244252 


Jelly Maze 


How may points can you get before the jelly creature kills you? 


There are 5 Power Pills in the maze, eat one of these and you will turn 
blue. When you are blue you can eat the jelly creature, but be careful you 
will not remain blue for longer than a few seconds. 


You gain 1 point for moving, 100 points for eating a Power Pill and 500 
points for eating a jelly creature. If you eat one, another will apear. 


Your controls are: 
‘W’ up 
‘®’ down 
‘A’ left 
‘D’ right 
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PROGRAM STRUCTURE 
INITIALIZATION 

DISPLAY SET-UP 

GET KEYBOARD CHARACTER 
DISPLAY PRESENT SCORE 
UPDATE POSITION OF PLAYER 
TEST FOR PLAYER COLLISION 
TAKE ACTION ON COLLISION 
DISPLAY PLAYER AT NEW POSITION 
MOVE JELLY 

PLAYER EATS JELLY 

JELLY EATS PLAYER 

PLAYER EATS POWER PILL 


DATA 


VARIABLES 
SC = SCREEN REFERENCE POINT 


X1 = HORIZONTAL POSITION OF PLAYER 
Y1 = VERTICAL POSITION OF PLAYER 


DM = ACTUAL POSITION OF PLAYER 


DC = ACTUAL POSITION OF COMPUTER 


RELATIVE TOSC 
D = DIRECTION OF PLAYER 
S = PLAYER’S SCORE 
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LINES 

O—8 

9— 49 

31 

51 

52— 70 

71 

72— 85 
86 — 93 

95 — 150 
1000 — 1040 
2000 — 2010 
5000 — 5010 


9000 — 9090 


JELLY 


) 


42 


43 


MAZE 


POKE 55,255 + POKE 56,47 = PRINT " " 
+ POKE 53280,2 = POKE 53281,0 

V = 53248 = POKE V + 22,216 = POKE V + 24,28 

POKE V + 34,7 = POKE V + 35,5 

FOR I = 12288 TO 12471 + READ @ = POKE I1,Q 
= NEXT 

FOR I = 12544 TO 12551 += POKE I,0 += NEXT 

FOR I = 12672 TQ 12751 = READ @ = POKE I1,Q + NEXT 

POKE 54294,10 = POKE 54274,0 = POKE 54276, 33 
+ POKE 54278,240 

POKE 54273,0 : POKE 54272,0 

SC = 1024 = CS = 55296 - X = 4: Y=4: D=i1 
-> A= 15 = B= 20 = AD= 1 +: DI = $3 

PRINT “ BYITIITIIGNNNNNFIITITIITIIGNNNNFIITIIIIIIIIIII"';S 

PRINT "IITIIIG, .«2 4. «2 2 «2 a2FIITIIIIG., 2 
aFIIIIIIIIIIII" 5 

PRIN. “LITIG 2 cu. ce ca aes. Gc a ae FP REDUG 2x. & <x “x 
a a aF ITIITIITITIITII"S 

PRINT “IGLM. 2.2 2 w2JK 4. «4 «6 «1 2 FIIG A. «2 uw ZHE 
a2 wa aFIIITIIIITIII"'S 

PRING "Gia be ee cee a? oe EI a a tk 
HIIE . «2 « a2FIIIITIITIITI"s 

PRIN Re oa a a ea a ae a ee a a a a 
a2 a2FIlIG, Dy, ,ZFIIIIIIII"; 

PRLING SR ge — ae os ak a as Se 2S, a a ee a a 
ao « a2FG, 2 on oo oo cw o FITTS 

PRENT "Pog 2 fk ae TAI a ae ees ek a a ay eR 
Por a ae oe ao om sF I IIIII"S 

PRINT “Pa ia .HGFE 2 we a SK. a ao we ADIE nw 
i ts a a, a ce es ee a ae 

PRINT “P. 4. 4. FEHG. «2 J2ZLM. 4. JZHIGFIE. 4242 ia ia 
mele ee a aS Las Ue aFIIII"5 

PRINT "“Puao.a ao FG a oe ot «wax PI@HIG. « 
ge ie EER oo. ak. oe cas SHITII'S 

PRINT “Pao.a na &- & & & ig ie Sak ak, ee. Sat De: 
abDa cFIIP 4 a SHIIIII"S 

PRINT “Eu a a 


> > » 


« ae HITIIII'S 

PRINT “IE. 4a SIRS ee Gk ee 3k = “ca Sige ae) a> ea te 
de Gal a a2 2HIIIIIII" 5 

PRINT "IIE. 21 21 2 otMan no nn no a a ew ee 
ai ode a ee a oe PLIES 

PRINT “IITE. 4. «2 «2 « Bee! os a ck a Ss us we UR 
a ca ec HE: & ” FIIIIILII"S 

PRINT “IITIE . «2 «2 « eS, a ee eo ce 
Se ae. Gee. . FIIIIIII"§ 

PRINT "TIILIE . it: as sak a aa” a a a a a Se i ae 
a ike a ae ae a es a ae Di PLE EDI Is 

PRINT “TITIIIE ~ -4°D « «HE ~~ 2 2a ee ee a Oe 
a) a a ea a a ae a ak Se PT GS 

PRINT "GNNNNFIP. . « «FG. «2 «2 mw wow wm oe HP a a 
ee A Go ee a LEE 

PRINT "Pow: 2 a “JPR a a ee ae as A ae ke a ee PP 
a « Po) 0 gen eo A gee ae Sak, de aFIIiI"s 


a fkeelelUeDll Cl 


an ed 


a 
es 
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PRINT "P.ow. «2 «2 2HP ng «2 4 a iw 


a» ry 
za a a ~- - a ~z - ry - > ~ a> a» a aFII"5 


PRINT “EQOOOHIP . 4. 4 « w2HE o 
«z - - za -z ~z- » > a ~ a aFI"$5 
PRINT “IIIIII1EQOOOHI IEQOOHI IEQQ0000000000000H I “ ; 
FOR I = 960 TO 999 + POKE CS + I,2 
> POKE SC + 1,9 + NEXT + M= SC +X + Y ® 40 
+ mC = CS + X + Y # 40 
POKE MC,4 + POKE MC + 1,4 + POKE MC + 40,4 
¢ POKE MC + 41,4 
POKE M,17 = POKE M + 1,18 = POKE M + 40,19 
+ POKE M + 41,20 
FOR Z = 1 TO DI 


a Fe 4 


a 


>? 


PE = PEEK ( 197 ) = PRINT "B@ M4 © ©) © © 4 a 


SOO © oA a a @ @ Bi ia’s 

M= SC + X + Y * 40 = X1 = X = YL = Y 

IF PE < > 9 AND PE < > 23 AND PE < > 10 
AND PE < > 18 THEN 95 

IF PE = 9 THEN Yi = Y1i - 1 

IF PE = 23 THEN Y1 Y1 + 1 

IF PE = 10 THEN X1 Xi - 1 

WHERS = “MAN” 

IF PE = 18 THEN Xi = Xi +1 

DM = SC + X1 + Vi & 40 += Pi = PEEK ( DM ) 


+ P2 = PEEK ( DM + 1 ) PS = PEEK ( DM + 40 ) 
+ P4 = PEEK ( DM + 41 ) 

IF P1 = 4 THEN GOTO 5000 

IF P2 = 4 THEN GOTO 5000 

IF PS = 4 THEN GOTO 5000 

IF P4 = 4 THEN GOTO 5000 

IF Pi < 4 THEN 1000 

IF P2 < 4 THEN 1000 

IF P3 < 4 THEN 1000 

IF P4 < 4 THEN 1000 

IF P1 < 17 THEN POKE 54276,0 =: POKE 54274,33 
¢ POKE 54273,20 + GOTO 95 

IF P2 < 17 THEN POKE 54276,0 + POKE 54276,33 


¢ POKE 54273,20 + GOTO 95 

IF P3 < 17 THEN POKE 54276,0 = POKE 54276,33 
¢ POKE 54273,20 + GOTO 95 

IF P4 < 17 THEN POKE 54276,0 * POKE 54276,33 
: POKE 54273,20 = GOTO 95 

DC = CS + X1 + Yi # 40 = POKE M,32 

POKE M + 1,32 = POKE M + 40,32 

POKE M + 41,32 

IF AD = 1 THEN POKE DC,4 * POKE DC + 1,4 

POKE DC + 40,4 = POKE DC + 41,4 


a 
v- 
- 
v 


IF AD = — 1 THEN POKE DC,35S + POKE DC + 1,3 
+ POKE DC + 40,3 = POKE DC + 41,3 

S=685 + 1 

POKE DM,17 = POKE DM + 1,18 


IF D = 1 THEN POKE DM + 40,19 = POKE DM + 41,20 
IF D = — 1 THEN POKE DM + 40,21 + POKE DM + 41,22 
X = X1 - Y= Y1 + D=-OD 
POKE 54273,0 = NEXT = Al = A+ Bl = 8B 

> M= SC +A + B *¥ 40 
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96 


98 


99 


IF RND ( 1) < .8 THEN Al = Al + (¢ 
- ¢€( AL < X ) ) ¥ AD 
DM = SC + Al + Bl *& 40 + Pl = PEEK 


4 PEEK ( DM + 41 ) 


IF ¢( P1 = 32 OR P1 < 53) AND ( P2 = 


AND ( PS = 32 OR PS < ) 
AND ( P4 = 32 OR P4 < 

IF Al < > A AND RND ( 1 
INT ¢( RND ( 1) ® 3) 

WHERS = “JELLY"“ 

IF RND ( 1) < .8 THEN B1 
- ¢ B1 < YY») ) *® AD 

DM = SC + A + Bl *& 40 += Pl = PEEK 

P2 = PEEK ( DM + 1) ¢ 

P4 = PEEK ( DM + 41 >) 

IF P1 > 16 AND P1 $2 THEN 1900 

IF P2 > 16 AND P2 32 THEN 1000 

IF P3 > 16 AND PS 32 THEN 1000 

IF P4 > 16 AND P4 32 THEN 1000 

IF Pl > 255 OR P2 
THEN 1000 

IF ( Pl = 32 OR P1 < 5) 


THEN A 


pron 


+ GOTO 


Bil + (¢ 


VAAANAA 


AND ( P2 = 32 OR P2 < 5 ) AND 
( PS = 32 OR P3 < 5S ) AND 
( P4 = 32 OR P4 < 5) THEN B = B1 
IF Bi < > B THEN B1 = B + Bi = Bi + 
INT ( RND (1) ® 3) — 1 # GOTO 
DM = SC +A+B* 40 =: DO =CS+A 
POKE DC,14 + POKE DC + 1,14 = POKE 
: POKE DC + 41,14 
POKE M,32 + POKE M + 1,32 = POKE 


: POKE M + 41,32 


( Al > X ) 


( DM ) 


32 OR P2< 5 ) 


= Al 


) 
< .3 THEN Al = A= Al 
1 


98 


( Bl > Y ) 


( DM ) 
P3 = PEEK ( DM + 40 


200 OR PS > 255 OR FP4 > 255 


105 
+ B* 40 
DC + 40,14 


+ 40,32 


POKE DM,O =: POKE DM + 1,1 + POKE DM + 40,2 


> POKE DM + 41,3 
IF NU < > O THEN NU = NU 


+ 1 
> IF NU = 20 THEN NU = 0 = 


AD = 1 


IF RND ( 1) < .0O3 AND DI > 1 THEN DI = DI - 1 
IF B = B1 OR A = Al THEN POKE 34276,0 


+ POKE 54276,33 + FOR I =0 1705 
+ POKE 54273,I + NEXT 

POKE 54273,0 

GOTO 50 

IF AD = 1 THEN 2000 

POKE 54276,0 : POKE 54276,33 + FOR 
STEP 4 + FOR J = 1 TO 20 = NEXT 

POKE 54273,I + NEXT + POKE 54273,0 

M=SC +X + Y & 40 + DM = SC + X1 

POKE M,32 + POKE M + 1,32 + POKE M 
+ POKE M + 41,32 

POKE DM,32 = POKE DM + 1,32 + POKE 
¢ POKE DM + 41,32 

M=SC + A+B * 40 = DM = SC + Al 

POKE M,32 + POKE M + 1,32 = POKE M 
: POKE M + 41,32 

POKE DM,32 : POKE DM + 1,32 + POKE 
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STEP .3 


I = 0 TO 150 
+ ¥1 * 40 

+ 40,32 

DM + 40,32 


+ B1 * 40 
+ 40,32 


DM + 40,32 


P2 = PEEK ( DM + 1 ) + FP3 = PEEK ( DM + 40 ) 
P = 


) 


1020 
1035 
1040 
2000 
2001 
2002 
2003 
2005 


2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2000 
5002 


5005 
5010 
9000 
9010 


9015 
9016 


9017 
9018 
9019 
9020 
9022 
9024 
9025 
9030 
9040 
9050 
9060 
9070 
9080 


9090 


s POKE DM + 41,32 

X=4+ Y=4+:+: A= 15 + B= 20 

6 =§ + 500 + aD =1 

GOTO 50 

POKE 54276,0 ¢ POKE 54276,129 + POKE 54273,10 


FOR I = 1 TO 700 = NEXT 

FOR I = 240 TO O STEP —- 2 = POKE 54273,1 = NEXT 

POKE 54273,0 

POKE V + 24,20 + PRINT "(2 SHARD | LINES, THE 
. JELLY , CAUGHT . YoU!" 

PRINT “ (@] (] IlEMYOU . SCORED"S"POINTS. [e)" 

IF S < 200 THEN PRINT " m&HA,HA!" 

IF S > 199 AND S < 400 THEN PRINT " @8NOT . BAD." 

IF S > 399 AND S < SOO THEN PRINT " GaSUPER!" 

IF S > 799 THEN PRINT " ESAMAZING!" 

PRINT " (6) 6] ESANOTHER . GO?" 

GET AS + IF AS = “Y" THEN RUN 

IF AS < > "N" THEN 2070 

PRINT “ & BYE!" 

END 

S=S + 100+ AD=-1 +: NU=1 

POKE 54276,0 = POKE 54276,17 + FOR I = 10 Ta 50 
¢ POKE 54273,1 * NEXT 

POKE 54273,0 

GOTO 86 

DATA 32,131, 47,55, 63, 63, 255, 254, 8, 8, 224, 
112, 240, 240, 188,172 

DATA 162, 130, 136, 130, 34, 34, 128, 128, 44,8,8, 
32, 32,8, 131,128 

DATA 0,0, 4,29, 63, 29, 4,0 

DATA 64, 44, 208, 208, 244, 244, 253, 253, 
127, 127,31, 3157575151 

DATA 253, 253, 244, 244, 208, 208, 64, 44, 1, 
1,7,7,31, 31,127,127 

DATA 255, 255, 255, 255, 255, 255, 255, 255, 0, 
0,0,1,7, 31, 31,127 

DATA 0,0, 0, 64, 208, 244, 244, 253 

DATA 127,31,315751,0,0,0, 253, 244, 244, 208, 64,0,0,0 

DATA 85,85, 0,0,0, 0,0, 0,0,0,0,0,0,0, 85,85 

DATA 64, 64, 64, 64, 64, 64, 64, 64 

DATA 1,3,3,1,1, 7,13, 25, 128, 192, 192, 
128, 128, 226, 182, 156 

DATA 25,49, 3,6, 12, 12,6, 30, 128, 128, 192, 94, 
56, 24, 48,0 

DATA 1,3, 7,12, 24, 48, 24, 48, 128, 128, 192, 
192, 96, 48, 48, 240 : 

DATA 0, 60, 102, 102, 102, 102, 102, 60,0, 48, 
112, 48, 48, 48, 48,124 

DATA 0, 60, 102, 6, 12, 48, 94, 126, 0, 60, 
102, 6, 28, &, 102, 60 

DATA 0,6, 14, 30, 102, 127, 6, 6,0, 126, 94, 
120, 6, 6, 102, 40 

DATA 0,60, 102, 94, 124, 102, 102, 60,0, 124, 
102, 6, 12, 24, 24, 24 

DATA 0, 40, 102, 102, 60, 102, 102, 60, 0, 60, 
102, 102, 62,4, 102, 60 
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CHEXSUM 


2=1332 
S=2£1823 
4=1766 
2=2698 
5=2612 
y=1167 
B=43283 
S=4017 
{H=3513 
12=3354 
{4=3334 
15=2126 
12-2963 
FAa=2793 
erc=e27ar 
2452945 
es=2929 
fe=2P98ea 
ee=2394e 
Sa=277 1 
2e=-281Pr 
S4=23921 
S6=3113 
23=3085 
29=29605 
48@=2398 
42 =3852 
435-2767 
44-2448 
qt=2 727 1 
46=4@00e2 
475787 
45-2737 
43-2667 
5 


in 
“Ulf e & 

nou 
ne -J 


A oot 


II 

ty 
ay 
- 
ta) 


© 
7 
iT 


me pe IS 
™m tO 0 
mo euou 
LA 
® 
We) 
® 


ee oe ee 
hs 
" 
til 
IQ 
Mm 
a) 


oG=14277 
6@=14 73 
BS=i14693 


m 
(Th 
u 
my 


oc) a | 
~J 


“J 
KS) 
U 


~~] o- 
ip fs 
wt) 


tio of 
mm Of ig 

iT} 

od od 

to co 


i) 
i) 
my 


to to 
iT 
TT 
hay 
ay) 
0 


1 
i 
H 
H 
1=5999 
Ye=1291 
ra=1e2351 
r4=i1291 
foa=1e295 
YE=961 
VY =ae1 
7S=3901 
Ya=985 
se2=32e21 
s3S=32P21 
24=3227 1 
S3=3225 
SE=4186 
SBY=3423 
SS=3638 
S3=37 1 
Fe@=1P33 
S1=2226 
a2=2 
i 
3 
3: 
S&=5958 
SA=3863 
AB=4472 
Mi=1@a24 
AG=3241 
AA=393e2 
86 


~sJ 
i 

a a | 
mo 
mo 


nol on oh 
C0 
me 


iO 
Hy 


115=3731 
129=2692 
120=2929 
125-2667 
140=2746 
145=3456 
146=2247 
147=4532 
149-529 
150=476 
1gaa=985 
1ag1i=2494 
19ae2=1365 
1994=2789 
1@a5=2667 
1@ae=2952 
191@=2734 
1G15=2667 
1616=2953 
1M2a=1592 
1G25=1137 
AAD=476 
AAB=1963 
a64 


DD & 
KS) 
— 
It 


ry 
mo ¢ 


Mm 

Q wm & 
A cu Ty 
T| Tt} 
cn fu 
Ne hs) 
ay ta) 

0 


HW & my Te 
3) KS) 
ll I 


iA wD 
ro WwW Ty 


hc) 
HI 
ty) 


Qo © 
ie] eS) 
TT I 
fo TO ee 
m WM fs 
rn to om 
mo 2 


1K) 
Ay) 
70 9 
ll 
a ee 
my 


| 
Ty 
a 


iO MO wa 0 


2 
iH 


ro ry mf fo fu fu fou fo fo fo fo fo mo re 
ie) 


re © 
69) 
IS r 
I 
"0 
os 


& 

i) 

Dp 2 & 

1 Il 
we ee I) 

—J] To M1) = TQ be 


LA fu fo 
ru & . 
moe 7 1D e 1 
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=A1H=48 

SaG@H=3123 1 
SQH1@=3016 
F@iS5=11048 


10 
m © 
ne) 


Hl 
mM wo 
0 
WW th Be tw TY 


mr 


1 
i 
16 
@iy=-e2g954 
SALS=Pase 
S@13=-1444 
SHPO =2524 
9422 =2074 
S@Pd=1418 
IHE5=2852 
3 


yu if 
i) 


ae 
KS) 
Bk 
© 
it ol 
rou fu 
(1) 
at) 
a) 


CO 
an 
mn) 


9ASA=2 978 
AMEA=F686 
S07@Q=2591 
AG68@0=2381 
9698-2922 


Dark Star 


Test your skills against the enemy and the clock! 


The Death Star will obliterate your home planet, when it comes into range 
from behind its moon, using the immense power of its space gun. Before 
this happens you will attempt to take as many attacking enemy fighters 
with you before you are shot down or they shoot your home planet. 


You fly your X wing fighter along the trench on the Death Star engaging 
the enemy in mortal combat, using the ‘2’ and ‘C’ keys to move left and 
right and ‘M’ to fire. 


Straight Shooting! 
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PROGRAM STRUCTURE 
INITIALIZATION 

ROTATE COLOURS, READ KEY 

MOVE PLAYER’S SHIP (TWO SPRITES) 
MOVE PLANET 

CREATE NEWALIEN SHIP 

MOVE ALIEN SHIP 

ALIEN SHIP FIRES 

PLAYER FIRES 

SETUP SHOT SPRITE 


KEEP MOVING SHOT, CHECKING IF IT HITS 
ALIEN SHIP 


TURN OFF SHOT SPRITE, IF HIT 
INCREMENTS SCORE AND BLOW UP 
ALIEN ON SCREEN 


TIME TO BLOW UP PLANET? 
IF SO THEN BLOW IT UP AND END GAME 


GO TO START (150) 
ROTATE COLOURS, (ANIMATE DEATH STAR) 


GAME OVER, PRINT SCORE, 
ASK IF WANT NEW GAME 


DATA 
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LINES 


O— 140 
150 
155 — 167 
170 — 175 
180 — 185 
190 — 215 
217 — 240 
250 

251 — 260 
265 
270 — 297 
300 — 325 
350 
500 — 505 
1000 — 1035 


10000 — 20105 


VARIABLES 

V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 
I, A, J = TEMPORARIES 

B, C, M1, M2 = COLOUR VALUES 

KB = LOCATION TO GET KEY PRESSED FROM 
PL = PLANET POSITION 

SC = SCORE 

K = KEY PRESSED 

X = POSITION OF PLAYER’ SHIP 

FT = FLAG TO INDICATE IF SHOOTING OR NOT 

P = VALUE OF SPRITE HIGH POSITION REGISTER 
X1 = POSITION OF ALIEN SHIP 

DE = VALUE OF COLLISION REGISTER 


yo TTT) SEBt 3 
SSeueueeseuua SL a 
: ; } i Bet ri 6: oe 

a] 


SPRITE 


SPRITE 


SPRITE 
MOON 
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DARK STAR 


O POKE 55,255 + POKE 56,47 = V = 53248 
¢ POKE V + 32,0 * POKE V + 33,5 2 CO = 54272 
s POKE 54296,15 
1 POKE 54278,128 + POKE 54277,240 + POKE 54276,0 
+ POKE 54276,129 
2 POKE V + 34,6 = POKE V + 35,5 + POKE 2040, 208 
¢ POKE 2041,209 ¢ POKE 2044,210 = POKE V + 43,11 
3 POKE V + 2045,212 * POKE 54273,4 + POKE 54272,73 
¢ POKE 2045,213 
5 FOR I = 12544 TO 12551 + POKE I,0 = NEXT 
+ FOR I = 12288 TO 12367 * READ A + POKE I,A 
s NEXT 
6 POKE V + 22, PEEK ( V + 22 ) OR 14 
+ POKE V + 24,28 + POKE V + 39,14 
+ POKE V + 40,14 
8 FOR I = 13312 TO 13759 + READ A : POKE I,A 
t NEXT + POKE V + 37,2 * POKE V + 38,8 
9 POKE V + 28,31 = POKE V,160 + POKE V + 1,220 
s POKE V + 2,184 + POKE V + 3,220 
10 PRINT “ {J (o) [69 (e] (1 (} BBBBBBBBBBBBBBBBE® 191 2aHBBBB 
BBBBBBBBBBBB" ; 
15 PRINT “AAAAAAARAAAAAAADBA AS I DABEAAARAARAAAAAARAR" 3 
20 PRINT "“AAAAAAAARAAAAAADABI 19a I 2BAGAAAAAAAARAAAAAA" 5 
25 PRINT "2.4 4 4 «2 «2 «2 «2 «2 «2 « « « CAABBBBBBBBAAF 


a «2 «2 a2 EL a AAAAAAARAAARA 
sa ae ae tea he” a a ede ge a. a eg 

3O PRINT “BBBBBBBBBBBE ,. . AAAAAAAAAAAA . . HBBBBBBB 
BBBB"; 

40 PRINT “BBBBBBBBBBEB . . .« «0 «20 2 2 2 2 & &2 & & «& 
4 a« BHBBBBBBBBBB" 5 

45 PRINT "“BBBBBBBBBEBB . . «4 « 2 «2 «2 2 2 & & wo & 4 
a «a BBHBBBBBBBBB" 5 

SO PRINT “AAAAAAAADBBB . «2 «2 &2 w2 4 & & & & &* & * 
a « BBBGAAAAAAAA” 5 

05 PRINT “AAAAAAADABBBBBBBBBBBBBBBBBBBBBBAGAAAAAAA" 5 

60 PRINT "“AAAAAADAABBBBBBBBBBBBBBBBBBBBBBAAGAAARAAA" 5 

65 PRINT "“AAAAADAAABBBBBBBBBBBBBBBBBBBBBRAAAGAAAAA" 5 

7O PRINT "2.2 «2 w« « CAAAABBBBBBBBBBBBBBBBBBBBBBAAAAF 


a“ 
ao se & & 83 


7S PRINT “2.2 2 aC 2 ARAARAARAARAAAARARARAAARAARAAAAAAARA 


it) 


80 PRINT "2.2 .2C a. «4 ARAAAAAARAAARAAARAAARAAAAARAAARAARA 


a 
he cml er al 


85 PRINT ".C 2 «2 «2 AARAAAARAARAARAAAARAARARAAARAAAAARAARA 


Peer ae ee a | 


90 PRINT "Ew. «2 «2 «2 ARAAAAAAAARAARARAAARARARAARAAAA 
a a a a H" : 

95 PRINT “Bw. «2 «4 « AAAARAARARAARAARAARAARAAAARAAAARAAAA 
as a a -z B" 3 


~ 

B" 
rd a a ee a a s a, a ad a - ~~ a - - a ry -~ 

- 


es 
Pr a a a a a a a a Se a Se Sa Se Sy Se Se Si es | 
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110 
115 


120 


121 


125 


130 
140 


150 
155 


157 
160 


162 
165 


167 
170 
172 
175 


180 
185 


190 


195 


200 
205 
210 
215 
217 
218 
220 
222 


225 


230 


POKE 2023 + CO,8 = POKE 2023,2 
FOR I = 1024 TO 1223 + POKE I + CO,8 = POKE I,0 
¢ IF RND ( 1) > .9 THEN POKE 1,9 
NEXT = POKE 2042,211 + POKE V + 41,11 
+ POKE V + 23,36 + POKE V + 29,4 
+ POKE V + 4,24 + POKE V + 5,50 
FOR I = 1224 TO 2047 = POKE CO + 1,8 + NEXT 
POKE V + 42,9 + POKE V + 6,0 + POKE V + 7,60 
+ POKE 2043, 212 
POKE V + 21,15 
B=5 : Mi = 6 + M2 =5 + KB = 197 : X = 160 
+ PL = 0+ FI=03+ SC =0 
GOSUB 500 =: K = PEEK ( KB ) 
=X+(K=12)84-(K=20) 84 
s IF X < 64 THEN X = 44 


| 


IF X >» 260 THEN X = 260 
P = PEEK ( V + 16 ) 
> IF X > 255 THEN POKE V,X — 256 
¢ POKE V + 16,P OR 1 = GOTO 145 
POKE V,X = POKE V + 16,P AND 254 
P = PEEK (V+ 146) = X = X + 24 
> IF X > 255 THEN POKE V + 2,X — 256 
+ POKE V + 16,P OR 2 = GOTO 170 
POKE V + 2,X = POKE V + 16,P AND 253 


= 75 + IF FI THEN J = 1 
X = X — 24 + FOR I = 1 TO J + NEXT 
+ PL = PL + .5 + IF PL > 80 THEN PL = 80 
POKE V + 6,PL + IF FI > O THEN 190 
IF RND ( 1) < .9 THEN 250 
POKE V + 8,175 = POKE Vv + 9,90 
+ POKE V + 21, PEEK ( V + 21) OR 16: FI = 1 
= PEEK ( V + 30 ) 
POKE V + 9, PEEK (V+9) +4 
s = PEEK (V +28) 
: IF PEEK ( V + 16 ) AND 16 THEN X1 = X1 + 256 
IF PEEK (V +9) > 234 
THEN POKE V + 21, PEEK ( V + 21 ) AND 239 
: FI = 0 =: GOTO 250 
Xt = X1 - 12 = X21 = X1 + ( X12 >X) #2 
- (x1 < xX) #8 22: X1 = X1 + 12 
IF X1 > 255 THEN POKE V + 8,X1 -— 256 
: POKE V + 14, PEEK ( V + 16) OR 16¢G0TO 210 
POKE V + 8,X1 
+ POKE V + 16, PEEK ( V + 16 ) AND 239 
IF PEEK ( V + 30 ) AND 16 THEN 1000 
IF RND ( 1) < .92 THEN 250 
POKE 54290,0 = POKE 54291,12 = POKE 54287,17 
+ POKE 54286,37 = POKE 54292,0 = POKE 54290,17 
IF X1 > 255 THEN POKE V + 10,X1 — 256 
¢ POKE V + 16, PEEK ( V + 16 ) OR 32 = GOTO 225 
POKE Vv + 10,X1 
+ POKE V + 16, PEEK ( V + 16 ) AND 223 
POKE V + 11, PEEK ( V +9) + 21 + POKE V + 44,8 
+ POKE V + 21, PEEK ( V + 21 ) OR 32 
+ DE = PEEK ( V + 30 ) 
DE = 0 = FOR J = PEEK ( V + 11 ) TO 250 STEP 4 
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1000 


* POKE V + 11,J 
+ IF PEEK ( V + 30 ) AND 32 THEN DE = 1 
¢ J = 250 
NEXT J ¢ IF DE THEN 1000 
POKE V + 21, PEEK ( V + 21 ) AND 223 
IF K < > 36 THEN 300 
POKE 54290,0 ¢ POKE 54291,12 + POKE 54287, 137 
¢ POKE 54286,43 = POKE 54292,0 + POKE 54290,33 
X =X + 12 ¢ IF X > 255 THEN POKE V + 10,X -— 256 
: POKE V + 16, PEEK ( V + 16 ) OR 32 % GOTO 260 
POKE V + 10,X 
+ POKE V + 16, PEEK ( V + 16 ) AND 223 
POKE V + 11, PEEK ( V + 1) — 42 ¢ POKE V + 44,4 
+ POKE V + 21, PEEK ( V + 21 ) OR 32 
¢ DE = PEEK ( Vv + 30 ) 
DE = 0 + FOR J = PEEK ( V + 11 ) TO 70 STEP - 4 
POKE V + 11,J 
IF PEEK ( V + 30 ) AND 32 THEN DE = 1 
J = 70 
J 2+ xX =X - 12 
POKE V + 21, PEEK ( V + 21 ) AND 223 
IF DE = 0 THEN 300 
6C = SC + 10 + FI =0 
s POKE V + 21, PEEK ( V + 21 ) AND 239 
POKE 54290,0 + POKE 54291,133 * POKE 54287,8 
+ POKE 54286,147 + POKE 54290,129 
POKE 2045,214 + POKE V + 44,2 
¢ POKE V + 21, PEEK ( VV + 21 ) OR 32 
: FOR I = 1 TO 100 2 NEXT 
POKE 2045, 213 
¢ POKE V + 21, PEEK ( V + 21 ) AND 223 
IF PL < 80 OR RND ( 1) < .9 THEN 350 
POKE 54290,0 + POKE 54291,12 + POKE 54287,137 
¢ POKE 54286,43 = POKE 54292,0 + POKE 54290,33 
POKE V + 44,1 + POKE V + 10,PL = POKE V + 11,49 
: POKE V + 23, PEEK ( V + 23 ) AND 223 
POKE V + 21, PEEK ( V + 21 ) OR 32 
¢ FOR I = 1 TO 500 = NEXT 
POKE 54290,0 + POKE 54291,207 + POKE 54287,8 
¢ POKE 54286,147 * POKE 54290, 129 
POKE V + 21, PEEK ( V + 21 ) AND 247 
POKE V + 44,10 = POKE V + 11, PEEK (V +7) 
? POKE 2045,214 
+ POKE V + 23, PEEK ( V + 23 ) OR 32 
POKE V + 29, PEEK ( V + 29 ) OR 32 
¢ POKE V + 32, PEEK ( Vv + 33 ) 
¢ FOR I = 1 TO 4000 = NEXT + POKE V + 32,0 
POKE V + 29, PEEK ( V + 29 ) AND 223 
GOTO 1007 
GOTO 150 
C = M2 + M2 = 
POKE V + 33,B 
¢ RETURN 
POKE V + 21, PEEK ( V + 21 ) AND 252 
¢ POKE V + 10, PEEK (Vv) + 12 
: POKE v + 11, PEEK (V +1) 


oo Kw oH ow 
ar 


Mi: Ml1=B: B=C 
¢ POKE V'+ 34,M1 = POKE V + 35,2 
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1002 POKE V. + 32,1 
1003 POKE 54290,0 = POKE 54291,207 = POKE 54287,8 
* POKE 54286,147 = POKE 54290,129 
1005 POKE 2045,214 * POKE V + 44,2 
: POKE V + 21, PEEK ( V + 21 ) OR 32 
¢ FOR I = 1 TO 4000 = NEXT 
1007 POKE V + 32,0 + POKE V + 33,6 
1010 POKE 2045,213 = POKE V + 21,0 
1015 POKE V + 24,20 + PRINT " {2 m YOU . SCORED";SC 
1020 PRINT “ [e} (2) (© (61 (6) isp ANOTHER . GAME?" 
1022 POKE 54276,0 = POKE 54290,0 = POKE 54273,0 
+ POKE 54272,0 : POKE 54287,0 = POKE 54286,0 
1025 GET AS + IF AS < > “Y" THEN 1030 
1027 POKE V + 24,28 + POKE 54273,4 + POKE 54272,73 
s POKE 54276,0 + POKE 54276,129 + GOTO 9 
1030 IF A® < > "N" THEN 1025 
1035 POKE V + 22, PEEK ( V + 22 ) AND 239 = END 
10000 DATA 255, 255, 255, 255, 255, 255, 255, 255, 170, 170, 
170, 170, 170, 170, 170,170 
10005 DATA 85,85, 85, 85,85, 85,85, 85 
10010 DATA 1,1,8,8, 16, 16, 128, 128, 149, 169, 162, 162, 154, 
154, 42,42 
10015 DATA 86,84, 81,81, 101, 101,21, 21,64, 64, 32, 32,4, 4, 2,2 
10020 DATA 106, 106, 138, 138, 166, 1646, 168, 168, 149, 149, 49, 
69,89, 89,84,84 
10025 DATA 255,255, 255, 239, 255, 255, 255, 255 
20000 DATA 0,0,3,0,0,3,0,0, 15, 0,0, 15,0, 0, 10, 0, 128, 10, 
2,0,11, 20,0, 11, 22,0,15 
20005 DATA 9, 128, 13, 2, 160, 37,0, 154, 170, 0, 38, 170,0,9, 
154,0,2,118,8, 10,154 
20010 DATA 32, 170, 168, 42, 170, 154, 42, 128, 118, 40,0, 14, 
0,0,0,99 
20015 DATA 0,0, 0,0, 0,0, 192, 0,0, 192, 0, 0, 128, 0, 0, 128, 
8, 0,128, 2,0, 128,0,80 
20020 DATA 192, 2,980, 192,9, 128, 112, 42,0, 170, 152,0,170, 
96,0, 153, 128,0,118,0,0 
20025 DATA 154, 128, 128, 170, 168, 32, 154, 170, 160, 118, 10, 
160, 14,0, 160,0,0,0,99 
20030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,8, 0, 128, 32,0, 32, 
128, 0,8, 128, 0,8, 128,32,8 
20035 DATA 128, 168,86, 170, 170, 168, 174, 170, 232, 138, 
154, 136, 128, 168, 8, 128, 32,8 
20040 DATA 128,0,8, 32, 0, 32,8, 0, 128,0,0,0,0,0,0,0,0,0,99 
20045 DATA 106,170, 0, 154,170, 128, 144, 144, 128, 154, 154, 
140, 154, 106, 148, 106 
20050 DATA 90, 168, 170, 154, 154, 166, 154, 102, 169, 1469, 
100, 170, 169, 153, 106, 166, 106 
20055 DATA 170, 102, 149, 166, 154, 149, 105, 170,170, 
154, 165, 170, 154, 166,170, 106,170 
20040 DATA 168, 170, 170, 168, 170, 104, 152, 153, 154, 96,0, 
0,0,99 
20065 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 40,0, 2,170, 128, 
10, 170, 240, 44, 184, 152, 190 
20070 DATA 250, 250, 186, 250, 186, 251, 250, 170, 250, 254, 
170, 174, 254, 186, 170, 190,174 
20075 DATA 170, 184, 174, 42, 186, 148, 10, 250, 140, 2, 250, 
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128, 0,56,0,0,0,0,0,0,0,99 

20080 DATA 0, 24,0,0, 24,0, 0, 24,0,0, 24,0, 0, 24,0,0, 24, 
a, 0, 24,0,0,24,0,0, 24,0,0, 24,0 

20085 DATA 0, 24,0, 0, 24,0, 0, 24,0,0, 24,0, 0, 24,0,0, 24, 
0,0, 24,0,0, 24,0,0,24,0,0, 24,0 

20090 DATA 0,24,0,99 

20095 DATA 0,0,0,0,8,0, 0, 148, 128, 0,65, 0,1, 42,64, 2,0, 32, 
0,34,0,7, 73,112 

20100 DATA 112,28, 7,73 735 112,0, 34,0, 2,0, 32,1,42,44, 
0, 65, 0,0, 148, 128,0,8,0 

20105 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 


CHEXSUM 
@=4552 125=2687 eS? =2372 
1=2756 1S8=677 2PEO=5a79 
2=4179 140=3796 2S5=5346 
3=2827 154@=1062 2e7Aa=3641 
5=4092 155=3322 2Pae=2997 
6=3902 iS7=1144 2eG1=3371 
S=2596 i6M@=4176 295=4134 
S=3596 ie2@=1457 297=2331 
1@=4301 165=5184 SAM=1741 
15=3784 167=1677 361=3953 
28=3793 17@=1208 205=3969 
25=2584 172=3912 31@=2628 
3@=2575 i75=1616 311=3376 
35 =3656 1ge@=111a8 212=1575 
4%=3269 1S5=4768 315=44a9 
45=3270 139=4708 S20=4989 
SQ=3266 195=4a87 325=2259 
55=3793 2ag=4120 258=526 
Ba@=3792 2a5=4154 S@OQ=1765 
ES=3791 218=2378 S@5=2444 
7O=32297 215-1494 1f@A@=4332 
75=23385 Pi7=1169 1AM2=619 
$a@=3392 218=3924 1993=33276 
S5=23392 2PAa=4209 1@as-4198 
99=3329 e22=-2447 1@a@7=1336 
q5=3394 225 =5087 191@=1294 
1@@=2217 220=5268 1@15=2374 
i95=2186 225=945 1@2e@=12395 
119=1356 246=1569 1922=3661 
115=36623 250=1024 1@25=1534 
120-4689 251=3959 iM27=3911 
121=2@25 255=4863 1a2a=1184 
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1@35=1734 
1HAAA=3734 
1fHO5=1438 
19@618=2961 
1AGH1i5=2606 
198626=3352 
14625-1899 
FHAGOH=376a9 
“BBHO5=3582 
“O68 16=2824 
fB@O15=3459 
FABFA=3834 
PeBH2S=H=3726 
FHOasSO=3787 
POR SS=38E7 1 
FARAH =2527 
PeGa4IS=3256e 
2HHesAa=4091 
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Tank Attack 


The aliens are coming again! 


Controlling a laser tank, you must try and stop as many starships as 
possible from landing. If one does land it will release the aliens and fly 
away. 

The starships are protected by a force-field which flickers on and off. 
When blue the craft can be destroyed, when red the force-field protects 
the ship. The starships will attempt to destroy you using guided lasers. 


Your controls are: 
‘Z’ to move the tank left 
‘C’ to move the tank right 
‘M’ to fire your laser 
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PROGRAM STRUCTURE 


INITIALIZATION 
(PRINT SURFACE & SPACE SHIP) 


GET KEY PRESSED 

MOVE LEFT? 

MOVE RIGHT? 

FIRE CANNON? 

HIT SPACE SHIP? 

MOVE SPACE SHIP 

TANK BEING ATTACKED 
SPACE SHIP HIT AND FALLING 
TANK UNABLE TO PREVENT LANDING 
TANK HIT BY MISSILE 
CONTINUE GAME 


VARIABLES 

P = TANK POSITION 
A = ALIEN POSITION 
PE = KEY PRESSED 
B = BOMB POSITION 
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LINES 


1— 10 

15 

20 

30 

30 

67 

100 — 106 
145 — 170 
900 — 520 
1000 — 1030 
5000 — 5070 
1040 — 1070 


TANK ATTACK 


QO POKE V+55,255 + POKE V + 56,47 = PRINT "J" = 
POKE 53281,0 + POKE 53260,0 

1 V = 53248 = POKE 2040,192 = POKE 2041,194 +: 
POKE 2042,196 + PUKE 2043,197 = POKE 2044,198 

2 POKE V + 39,3 + POKE V + 40,2 + POKE Vv + 41,2 =: 
POKE V + 42,3 = POKE V + 43,12 + 
POKE V + 28,15 

3 POKE V + 37,8 + POKE V + 38,5 

4 FOR I = 0 TO 446 = READ @ + POKE 12288 + I1,Q@ : 
NEXT 

5 FOR I = 56136 TO 56295 = POKE I,9 : 
POKE I — 54272,160 + NEXT = POKE V + 21,31 
POKE 54273,0 

6 POKE 54272,0 + POKE 54276,0 + POKE 54277,0 : 
POKE 54278,0 + POKE 54296,15 : POKE 54278, 240 

7 POKE 54276,129 + POKE V + 23,0 + POKE V + 29,4 
- P = 110 = POKE V + 1,200 = POKE V + 2,11 

8 POKE V + 5,50 ¢ POKE V + 4,230 :; 
A = 150 + INT ¢( RND ( 1) & 70) + B= 50 3 
PE = PEEK (V+ 30) + G= .4 

9 POKE V + 8,0 = POKE V + 9,220 

10 POKE 54273,0 + PE = PEEK ( V + 30 ) 

15 PE = PEEK ( 197 ) 

20 IF PE = 12 AND P > 30 THEN P =P - 3 + 
POKE 2040,192 + POKE 54273,2 

30 IF PE = 20 AND P < 320 THEN P = P + 3 ? 
POKE 2040,193 + POKE 54273,2 

35 IF P > 255 THEN POKE V,P - 256 = POKE V + 16, 
PEEK ( V + 16 ) OR 1 + GOTO SO 

40 POKE V,P = POKE V + 16, PEEK ( V + 16 ) AND 254 

50 IF PE < > 36 THEN 100 

60 FOR I = 50 TO O STEP — 2 : POKE 54273,1 = NEXT 

62 X=P-5# ¥Y = 192 + D=— 1 + POKE 2041,195 + 
IF PEEK ( 2040 ) = 193 THEN D = 1 ; 
X = X + 20 + POKE 2041,194 

65 IF PEEK ( V + 30) < > & THEN 70 

66 POKE V + 2,0 + POKE V + 3,190 = X = 30: 
FOR I = 0 TO 10 = POKE 54273,1 = NEXT 

67 IF PEEK ( V + 41 ) = 246 THEN GOSUB 500 

68 POKE 54273,0 

70 IF X < 40 OR X > 300 OR Y < SO THEN X = © ¢ 
Y = 0 + POKE V + 2,0 + POKE V + 3,192 + 
POKE 54273,0 + GOTO 100 

B80 xX =xXx+D#523 Y=Y-6 

IF X > 255 THEN 


qa 4 


4 


85 POKE v + 3,Y : 
POKE V + 2,X -— 256 + POKE V + 164, 
PEEK ( V + 16) OR 2 + GOTO 95 

90 POKE V + 2,X + POKE V + 16, PEEK ( V + 16 ) 
AND 253 


100 G = G + .Q2 = IF RND ( 1) < .6 THEN A=A-— 3S 
101 B= B+ G =: IF RND ¢( 1) < .1 THENA=A+ 4 
102 IF A > 320 THEN A = 240 


2 
105 IF A < 40 THEN A = 40 


150 


106 IF A > 255 THEN POKE V + 4,A - 256 ¢ 
POKE V + 14, PEEK ( V + 16 ) OR 4 = GOTO 110 
107 POKE V + 4,A = POKE V + 16, PEEK ( V + 16 ) 


AND 251 

110 POKE V + 5,B = IF RND (1) < .3 THEN 
POKE Vv + 41,2 

115 IF RND ( 1 ) < .1 THEN POKE V + 41,6 

120 IF B > 185 THEN 1000 

130 IF RND ( 1) < .96 THEN GOTO 10 

140 IF A < P THEN POKE 2041,195 


142 IF A > P THEN POKE 2041,194 
145 FOR I = 0 TO 40 STEP .4 + POKE 54273,1 + NEXT + 
POKE 54273,0 
146 SH = A + FOR I = B TO 215 STEP 6 
i50 IF RND (1) < .4 THEN 
SH = SH + ( ( SH>P) - ( SGH<P)) #5 
160 IF PEEK ( V + 30 ) = 3 THEN 5000 
161 IF SH > 255 THEN POKE V + 2,SH — 256 : 
POKE V + 16, PEEK ( V + 16) OR 2 + GOTO 165 
162 POKE V + 2,SH + POKE V + 16, PEEK ( V + 16 ) 


AND 253 
165 POKE V + 3,1 
170 NEXT 


180 POKE V + 2,0 = POKE V + 3,190 

190 GOTO 10 

200 A = INT ( RND (1) # 50) + 170 ¢ B= 50 ¢ 
X = 30 + POKE V + 29,4 + POKE V + 23,4 

205 POKE V + 16, PEEK ( V + 16 ) AND 251 

500 POKE V + 2,0 + POKE V + 3,192 

502 POKE 54273, ( B- 40 ) 

505 G = G6 + .02 + B = B + G : POKE V + 5,B : 
IF B < 205 THEN 502 

506 POKE 54273,2 + POKE V + 29,20 + 
POKE V + 9,B - 5 = POKE V + 4,0 + 
POKE V + 5,0 

507 IF A > 255 THEN POKE V + 8,A — 256 : 
POKE V + 16, PEEK ( V + 16 ) OR 16 = 
GOTO 510 

508 POKE V + 8,A + POKE V + 16, PEEK ( V + 16 ) 
AND 239 

510 FOR Z = 10 TO O STEP — .2 + POKE 54273,I1 =: 
NEXT = A = 150 + INT ( RND (1) * 70) ¢ 
B = 50 + POKE 54273,0 

515 FOR Z = 1 TO 500 + NEXT = POKE V + 29,4 : 
POKE V + 8,0 = POKE V + 9,220 

517 IF A > 255 THEN POKE V + 4,A — 256 : 
POKE V + 16, PEEK ( V + 16) OR 4 = GOTO 520 

518 POKE V + 4,A =: POKE V + 16, PEEK ( V + 16 ) 
AND 251 

520 POKE V + 5, 

1000 POKE V,0 : 


B+ G = 0 = RETURN 

POKE V + 1,0 = POKE V + 2,0 = 
+ 3,0 = 4276,0 > POKE 534276,17 
1001 POKE V + 8,0 = POKE V 

1005 PRINT " &3 


151 


1006 


1007 


1010 


1011 
1012 


1015 
1020 


1025 
1030 


1040 
1050 
1060 
1070 
9000 


9001 
2002 


9003 


9004 


9005 
7910 
9020 
9025 
3030 
9040 
5050 
39060 


9065 
3070 
9000 
9010 


9020 
97030 


9040 
7050 
9060 
9070 
9080 


9090 


T= 1703 = IF A > 255 THEN 
— 256 + POKE V + 164, 
6) OR 8B = GOTO 1010 


6 
PEEK ( V + 
A POKE V + 146, PEEK ( V + 16 ) 


POKE Vv + 4, 
AND 247 
FOR I = B TO 205 + POKE V + 7,1 + 

POKE 54273,I -— 185 + NEXT I 


FOR I = A TO O STEP - 1 
POKE V + 6,I = POKE V + 16, PEEK ( V + 14) 

AND 247 
POKE 54273,1 = NEXT I,T 
FOR I = B TO 20 STEP - 1 + POKE V + 5,I : 

POKE 54273, INT ( RND ( 1) # 200 ) = NEXT 
POKE 54273,0 + POKE 54276,0 = POKE 542746,33 
FOR I = 50 TO 1 STEP — .4 ¢ POKE 54273,1 + NEXT 

+ POKE 54273,0 
PRINT " (3 &] Bl Bl BIPLAY . AGAIN?" 

GET At + IF AS = “Y" THEN RUN 

IF At < > "N" THEN 1050 

END 

POKE 54276,0 + POKE 54276,129 + POKE V + 2,0 : 

POKE V + 3,190 
POKE V,0 = POKE V + 1,0 + POKE V + 9,200 


IF P > 255 THEN POKE V + 8,P — 256 ¢ 
POKE V + 16, PEEK ( V + 16 ) OR 16 = GOTO 5004 
POKE V + 8,P + POKE V + 16, PEEK ( V + 16 ) 
AND 239 
FOR I = 20 TO O STEP —.1 = POKE 54273,I = NEXT 
+ POKE 54273,0 
POKE 54276,0 + POKE 54276,33 
FOR I = 200 TO O STEP — 2 + POKE 54273,I1 + NEXT 
FOR I = O TO 10 STEP .2 + POKE 54273,I += NEXT 
POKE 54273,0 + POKE 54276,0 + POKE 54276,17 
FOR I = 10 TO 30 STEP .1 + POKE 54273,I + NEXT 
FOR I = 50 TO O STEP — .4 + POKE 54273,1 = NEXT 
POKE 54273,0 
B=B+ 1: POKE V + 5,B = POKE 54273,B : 
IF B < 185 THEN 5060 
POKE V,0 + POKE V + 1,0 + POKE 54273,0 
GOTO 1000 
DATA 0,0,0,0,0,0,0,0,0,2,0,0,0,128,0,0 
,128,0,0,32,0,0,8,8,0,9,8,0, 21,8,0 
DATA 21,8,0,85, 72, 0,985, 72, 3, 255, 248, 15 
, 255, 252, 51,51,51,51,51, 51,15, 255, 252 
DATA 3, 255, 240,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 32,0 
,0,128,0,0,128,0,2,0,8,9,0,8, 21,0,8 
DATA 21,0,8, 85, 64,8, 85, 64,11, 255, 240 
,15, 255, 252,51,51,51,51,51,51, 15, 255 
DATA 252, 3, 255, 240,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,10,0,0, 38,0, 0, 38, 0,0, 38,0,0 
,40,0,0,32,0,0,128,0 


DATA 0,0,0,0,0,0,0,0,0,0,0 
50,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0,0,0,0,0,0,0 


152 


0,0 
9100 DATA 0,160 
30,9, 40,0,0,8, 9 
9110 DATA 0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,99 
9120 DATA 0, 48,0, 0, 48,0, 0, 252,0,0, 48,0, 3,87 
,0,9, 101, 128, 252, 100, 124,41, 101, 240 
9130 DATA 15,155,192, 3, 255,09, 1, 253,0,1,49 
50,4, 0, 64, 14,0, 16, 136, 0, 136,0,0,0,0,0,0 
9140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 
9150 DATA 0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0 


9140 DATA 0,4,0,0, 29, 0,0, 29,0,0 
34,0,0,4,0,0, 34,9,0, 34,0 

9170 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,9,0,0,0,0,0,0,0,0,99 

9180 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

9181 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


9182 DATA 0,0,0,0 
9190 DATA 3,7,0,7, 223, 184, 15, 255, 248,15 
»255, 252, 63, 255, 255, 255, 255, 255 
9200 DATA 255, 255, 255, 255, 255, 255, 255, 255, 255 


CHEXSUM 
Q@=3255 €@5=4668 PHaB=3856 
1=3935 S@=P 3906 PAS=15%re2 
2=4408 S35=477 5aa=1328 
3=1342 i199=2251 5A2=926 
4=2221 1@i1=2156 5a5=2048 
3=4292 14@2=1157 5@6=2592 
6=3836 1@5=1033 SAV =397E 
Y=4155 196=3921 5AaS=2227 
S=35152 187=2279 Sim=4771 
S=1345 116=2240 S15=3147 
i@=1640 115=158e Siyv=3920 
15=r396 12ea=951 Si8=2279 
ePeM=3262 12hH=1496 928=1164 
SA=3254 14@=12580 1HBwA=3598 
35=3689 i42=1249 1@H1=1218 
4A=P Ada 145=25a5 1G6O5=3754 
S@=1115 146=1536 19AG6=35568 
6Bs=1984 150=2327 19a7r=2287 
B2P=5445 166=1456 iMia=273a 
65=1525 161=4139 iM@L1i=i1ar4 
66=3583 {1G2=2P3923 i@ie=2295 
67=1635 165=587 19@15=954 
62-528 i7O@=1231 i@2O=3595 
7A=5454 1S@=1338 1H925=1832 
S@=1492 14a8=472 1M38=2686 


—s 
oO 
ee) 


382-4068 
SAAS =2302 
DHAd=2683 
SAAS=1213 
SA1@=2e038 


1 

231i 
SB50=525 
SMG O=23943 
SA69=1587 
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93170=24998 
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Star Pilot 


This program also contains some machine code routines. 


In this game you, the Star Pilot, must attempt to get approaching and 
retreating enemy space craft into your sights and blast them. 


The game’s objective is to get as many enemy craft as possible within the 
2 minutes playing time allowed. 


‘W’ and ‘X’ control your up and down movement. 
‘A’ and‘D’ control your left and right travel. 
‘S’ key is used to fire with. 
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PROGRAM STRUCTURE LINES 
SET UP COLOUR MODE: TURN SOUND ON 1 
READ IN SPRITE DATA 5 


SPRITE 0 = SIGHTS 10 
SPRITE 1 = LEFT MISSILE 
SPRITE 2 = RIGHT MISSILE 
SPRITE 3 = ALIEN 
PUT SIGHTS ON SCREEN 


GIVE X, Y COORDINATES OF SIGHTS (148, 108) 15 
MAKE MISSILES MULTI-COLOUR 
MAKE MISSILES RED 


CLEAR SCREEN: GIVE ADDRESS OF 20 
KEYBOARD 
LOAD IN MACHINE LANGUAGE ROUTINE 25 


GET ADDRESSES OF THE 3 MACHINE CODE 
ROUTINES 30 
SET CHARACTER COLOUR TO WHITE 


PLACE STARS RANDOMLY IN BACKGROUND — 35 


INITIALIZE TIME = 0 40 
SCORE = 0 

READ KEYBOARD 50 
GET SPRITE COLLISION REGISTER 
MAKE SIGHTS GREEN 


IF SIGHTS AND ALIEN ARE TOUCHING THEN 
MAKE SIGHTS RED 


IF PLAYER DID NOT HIT ‘FIRE’ THEN 100 52 
SET UP VOICE 1 ON SID CHIP 33 
PUT L AND R MISSILES ON SCREEN 55 — 60 
MOVE MISSILES TOWARDS SIGHTS 65 — 75 
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IF BOTH L AND R MISSILE DID NOT HIT 75 — 80 
ANYTHING THEN 85 


IF ALIEN WAS HIT THE 1000 82 
MAKE SMALL EXPLOSION SOUND 83 


PUT EXPLOSION SPRITE INSTEAD OF MISSILE 85 — 90 
ON SCREEN, WAIT, THEN ERASE 


RESTORE POINTER TO MISSILE AGAIN 95 
IF ALIEN IS ON SCREEN THEN 130 100 


90% CHANCE EACH TIME ROUND LOOP, OF 105 
NOT CREATING AND ALIEN IF ONE 
ALREADY THERE. NO ALIEN TO BE 
CREATED THEN 200 


SET RANDOM X, Y, ZOF ALIEN FROM SPACE- 107— 129 
SHIP. THEN PUT ALIEN ON SCREEN, SIZE 
OF ALIEN DEPENDENT ON Z. AREAS 195 — 
199 OF MEMORY CONTAIN DEFINITIONS 
FOR ALIEN SPRITE. 195 — SMALLEST, 199 
— ee SET ALIEN PRESENT STATUS 
FLAG. 


MOVE ALIEN IN X, Y, ZDIRECTION RANDOMLY 130— 175 


IF PLAYER DID NOT HIT DIRECTION KEY THEN 200 
300. IF NO ALIEN PRESENT THEN 232 


MOVE ALIEN RELATIVE TO OUR SPACE SHIP 205 — 230 
IF WE ARE GOING UP THEN MOVE ALIEN 
DOWN, IF WE ARE GOING LEFT THEN MOVE 
ALIEN RIGHT AND VICE VERSA 


IF UP DIRECTION SELECTED, THEN MAKE STAR 232 
FIELD MOVE DOWN RELATIVE TO SPACE 
SHIP. PLACE STAR RANDOMLY AT TOP OF 
SCREEN. GO TO 300. 
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IF LEFT DIRECTION THEN MOVE STAR FIELD 235 
RIGHT. PLACE STAR RANDOMLY ALONG 
RIGHT-MOST COLUMN. GO TO 300. 


IF RIGHT DIRECTION THEN MOVE STAR FIELD 240 
LEFT. PLACE STAR RANDOMLY ALONG 
LEFT-MOST COLUMN. GO TO 300. 


SCROLL SCREEN UP FOR DEFAULT DOWN 245 — 250 
DIRECTION. PLACE A STAR RANDOMLY 


ALONG BOTTOM LINE 
IF TIME IS NOT UP THEN 50 300 — 305 
ASK FOR NEW GAME 
IF REPLY = YES THEN GO TO 30 320 
OTHERWISE END 325 
BLOW UP ALIEN. MAKE BIG EXPLOSION 1000 — 1025 


SOUNDS, PLACE EXPLOSION CLOUDS ON 
SCREEN. SET ALIEN PRESENT FLAG = 0 


SPRITE DATA 10000 — 10130 
DOWN DIRECTION SCROLLING ROUTINE 20000 — 20010 
RIGHT SCROLLING ROUTINE 30000 — 30010 
LEFT SCROLLING ROUTINE 40000 — 40010 


fn 


STAR PILOT 


1 POKE 55,255 =- POKE 56,47 + V = 53248 : 
POKE V + 32,12 = POKE V + 33,0 + 
POKE V + 38,5 = POKE 54296,15 
5S FOR I = 0 TO 638 + READ A = POKE 1024 * 12 + I,A 

* NEXT 

10 POKE 2040,192 = POKE 2041,193 = POKE 2042,194 =: 
POKE V + 21,1 = POKE V + 39,5 + POKE V + 23,1 

15 POKE V + 29,9 : POKE V,148 + POKE Vv + 1,108 : 
POKE V + 28,4 = POKE V + 40,2 + POKE V + 41,2 
+ POKE V + 37,8 

20 KB = 197 ¢ PRINT "J" 

25 FOR I = O TO 151 + READ A = POKE 13 * 1024 + I,A 
* NEXT 

30 D= 13 * 1024 - LE = D+ 52 + RI = D + 102 + 
FOR I = 55296 TO 56295 + POKE I,1 = NEXT 

35 FOR I = 1 TO 50 
POKE 1024 + RND ( 1 ) ® 1000,46 = NEXT 

40 AL = 9 = TI#% = "000000" = SC = O 

50 K = PEEK ( KB ) = A = PEEK ( V + 30) + 
POKE V + 39,5 IF A = 9 THEN POKE V + 39,2 

52 IF K < > 13 THEN 100 

53 POKE 54276,0 * POKE 54273,72 = POKE 54272,149 =: 
POKE 54277,143 = POKE 54276,129 

55 POKE V + 2,460 = POKE V + 3,220 = POKE V + 5,220 

60 POKE V + 4,4 = POKE V + 16, PEEK ( V + 16 ) OR 4 
+ POKE V + 21, PEEK ( V + 21 ) OR & 

65 FOR I = 1 TO 32 = POKE V 2, PEEK (V+2)+3 

+ POKE Vv + 3, PEEK ( V 3) =3 ¢ 

+ ) 


a 4 


POKE V + 5, PEEK ( V 
70 A = PEEK (V +4) -3 F A < O THEN A = 255 + 
POKE V + 16, PEEK (V +16) -—4 
72 POKE V + 4,A 
75 A = PEEK ( V + 30 ) = NEXT + POKE V + 21, 
PEEK ( V + 21 ) — 6 + B = A AND 2 + 
IF B = 0 THEN B= A 
80 IF B = O THEN 85 
82 IF A AND 8 THEN 1000 
83 POKE 54276,0 + POKE 54273,17 = POKE 54277,7 : 
POKE 54276, 129 
85 POKE Vv + 2, PEEK ( Vv) + 10 + POKE V + 3, 
PEEK ( V + 1) + 10 # POKE 2041,201 + 
POKE V + 21, PEEK ( V + 21 ) OR 2 
90 FOR I = 1 TO 50 + NEXT + POKE V + 21, 
PEEK (V+ 21) - 2 
95 POKE 2041,193 
100 IF AL > O THEN 130 
105 IF RND ( 1 ) > .1 THEN 200 
107 IF PEEK ( V + 16 ) AND A THEN POKE V + 14, 
PEEK (V+ 146) -8 
110 POKE V + 6, RND (1) * 256 + IF RND (1) > .75 
THEN POKE V + 6, RND ( 1 ) & 63 + POKE V + 14, 
PEEK ( V + 14) OR 8B 
115 POKE Vv + 7, RND ( 1 ) * 200 = Z = INT 
( RND (1) * 5) = POKE V + 42,4 


+ 
+ 
3 
I 
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120 DZ = INT ( RND(1)%* 5-2) 3 
( RND (1) %* 5-2) * DX = IN 
( RND (1) %* 5-2) 

121 IF ( DX = O AND DY = O AND DZ = O ) OR 
( DX = 0 AND DY = O AND DZ > QO ) THEN 120 

122 IF Z = O THEN 129 

123 IF PEEK ( V + 16 ) AND 8 THEN POKE Vv + 16, 

16) -8 

> .5 THEN 127 

+ IF RND ( 1) > .5 THEN 

»86 + POKE V + 16, PEEK ( V + 16 ) 


DY = INT 
T 


Y + 
124 IF RND ( 1 ) 
125 POKE V + 46,2 

+ 6 


126 GOTO 129 
127 POKE V + 7,31 : IF RND ( 1) > .5 THEN 
POKE V + 7,246 
129 POKE 2043,195 + Z = POKE V + 21, PEEK ( V + 21 ) 
OR 8+ AL =1 
130 A = PEEK (V +7) + DY & 2 ¢ 
IF A < 31 OR A > 246 THEN AL = 0 =: 
POKE V + 21, PEEK ( V + 21 ) - 8 + GOTO 200 
135 POKE V + 7,Q + A = PEEK (V+ 6) + DX # 2:2 
B = PEEK ( V + 16 ) AND 8 
140 IF ( A < 2 AND B = O ) OR ( A > 8& AND B ) THEN 
AL = 0 =: POKE V + 21, PEEK ( Vv + 21) - 8: 
GOTO 200 


145 IF A < O THEN A 2099 *+ POKE V + 16, 


PEEK ( V+ 16) - 8 

150 IF A > 255 THEN A = O = POKE V + 14, 
PEEK ( V + 16 ) OR 8 

155 POKE V + 6,A = Z = 2+ DZ ¢ 20 + IF Z < O THEN 
AL = 0 + POKE V + 21, PEEK ( V + 21) - 8 + 
GOTO 200 

157 IF Z > 4.9 THEN 4.9 = DZ = —- INT 


Z 

( RND ( 1) *€ 3 

160 POKE 2043,195 + Z 
9 


165 IF RND (1) < THEN 200 
170 DX = INT ( RND (1) #353 - 2) 
DY = INT ( RND (1) €5 - 2 + 


) 
IF RND ( 1) > .7 THEN DZ = INT 
(RND(1)%5-2) 
175 IF DX = O AND DY = O AND DZ = O THEN 170 
200 IF K < > 9 AND K < > 18 AND K < > 23 
AND K < > 10 THEN 300 
F AL = O THEN 232 
= PEEK (V+7)-(K=9) *# 8+ 
(K=23)%8 
206 IF A < 31 OR A > 246 THEN AL = © = POKE V + 21, 
PEEK ( V + 21 ) —- 8 + GOTO 50 
OKE V + 7,A 


203 I 
205 A 


207 P 
210 B PEEK ( V + 16 ) AND 8 = A = PEEK ( V + 6 ) 
- (K=10) 8% 86+(Kk = 18) *£ 8 
215 IF ( A< 2 AND B= 0) OR ¢( A > 8& AND B ) 
THEN AL = 0 = POKE V + 21, PEEK ( V+ 21) - 8 
+ GOTO 200 
220 IF A < O THEN A = 255 = POKE V + 16, 
PEEK ( V+ 16) - 8 
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225 IF A > 255 THEN A = O + POKE V + 14, 
PEEK ( V+ 16) OR 8 
230 POKE V + 6,A 
232 IF K = 9 THEN SYS D = POKE 1024 + 
RND (¢ 1 ) & 40,46 = GOTO 300 
235 IF K = 10 THEN SYS RI += POKE 1024 + INT 
( RND ( 1) * 25) & 40,46 = GOTO 300 
240 IF K = 18 THEN SYS LE + POKE 1063 + 
INT ¢( RND ( 1) ® 25 ) * 40,46 =: GOTO 300 
245 PRINT "HMMM MO MMM Ow 2 a w& 
fe] () fo) fo (el fe) (fe) el fel fd ime ww ow 
a s a a a ry > a - ry S yy a » PS 
a a - ry ry YY Py & ry y S a a a y " 
250 POKE 56295,1 -+ POKE 1984 + RND ( 1 
300 IF TIS < "000200" THEN 50 
305 PRINT “ 9 & TIME . UP (9) [fe] (©) fey" = PRINT “ Ea YOU 
4 SCORED"3;SC = POKE V + 27,255 
310 PRINT “ © f (4 (6) CYWOULD . YOU JZLIKE , ANOTHER 
. GAME?" 
315 GET At = IF AS = "Y" THEN POKE V + 21,1 = 
PRINT "C2" * POKE V + 27,0 = GOTO 30 
320 IF AS < > "N" THEN 315 
325 END 
1000 POKE V + 21,9 + AL = O + POKE V + 2, 
PEEK ( V ) + 10 + POKE V + 3, 
PEEK ( V +1) + 10 
1001 POKE 54276,0 = POKE 54273,8 + POKE 54272,47 ; 
POKE 54277,76 * POKE 54276, 129 
1005 POKE V + 4, PEEK ( V ) * POKE V + 5, 
PEEK ( V + 1 ) * POKE V + 23, PEEK ( V + 23 ) 
OR 4 
1010 POKE V + 29, PEEK ( V + 29) OR 4 ¢ 
POKE 2041,200 + POKE 2042, 200 
1015 POKE V + 21, PEEK ( V + 21 ) OR 6 + 
FOR A = 200 TO 201 = POKE 2042,A ;+ 
FOR B = 200 TO 201.9 STEP .05 
1020 POKE 54276,0 + POKE 54276,129 = POKE 2041,B ; 
NEXT B,A + POKE V + 23,1 * POKE V + 29,9 
1025 POKE V + 21,1 * POKE 2041,193 + POKE 2042,194 =: 
SC = SC + ( 5 — INT ¢( Z) ) *¥ 10 = GOTO 100 
10000 DATA 0,0,0,0,0,0,0,0,0,0, 28,0,0, 255, 128,7 
, 128, 240, 12,0, 24, 16,8,4,32,8,2 
10005 DATA 32,0,2,0,99,0,32,0, 2, 32,8, 2,16,8,4 
,12,0, 24,7, 128, 240,0, 255, 128, 0, 28,0 
10010 DATA 0,0,0,0,0,0,0,0,0,99 
10015 DATA 0,0,0,0,0,0,0, 2, 128,0,2,128,0,41,1298 
»0,41, 128,0,150,0,0, 150,0,2,86,0 
10020 DATA 2,86,0,2,88,0, 2,88,9,9, 160,0,9,160,0 
» 38,0,0, 38,0,0,40,0,0,40,0,0 
10025 DATA 128,0,0,128,0,0,0,0,0,99 
10030 DATA 0,0,0,90,0,0, 2, 128,90, 2, 128,0,2,104 
,0,2,104,0,0,150,0,0,150,0 
10035 DATA 0,149, 1268,0, 149, 128,0,37, 128,00, 37,128 
39,10, 96,0, 10, 96,9,0, 152,0,0,152 
10040 DATA 0,0, 40,0,0, 40,0,0,2,0,0,2,0,0,0,99 


) * 40,46 
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10045 


10050 


10055 


10060 


10065 


10070 


10075 


10080 


10085 
10090 


10095 


10100 
190105 


10110 


10115 
10120 


10125 


10130 


20000 


20005 


20010 
30000 


30005 


30010 
40000 


40005 


40010 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,8, 0, 0, 62,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,8,0, 0, 28,0, 0, 255, 128 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 99 

DATA 0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0 
,0, 0, 34, 0, 0, 28, 0,0, 127,0, 3, 255, 224 

DATA 0, 201, 128,0,0,0,0,0,0,0,0,0,0,0,0,0 
,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,99, 0,0, 28,0,0,62,0,0, 247,12 

DATA 7, 255, 240, 31, 255, 252, 1, 201, 192,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 128, 128,0 
,99, 0,0, 28,0, 0, 127,0, 1,227, 192,15 

DATA 255, 248, 127, 255, 255, 7, 156, 240, 2,0 
,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,99 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32 
,0, 0, 186, 128, 10, 247, 128, 47, 123,128 
DATA 181,151, 224, 173,85, 120, 11,95, 248, 2 
» 222, 160, 2, 222, O, 2, 222,0,0,190,0 
DATA 0, 40,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
DATA 0,0,0,0,0, 0,0, 2, 128, 0, 138, 232, 2, 239 
, 120,11, 117, 224, 45, 119, 168, 47,87 
DATA 254, 10, 213, 94, 11,85, 248, 11,87, 160 
,45, 221, 128, 181, 221, 224, 183, 223,120 
DATA 44, 187, 94,8, 34, 222, 0, 0, 184,0,0 
,32,0,0,0,0,0,0,0,0,0 
DATA 162, 192, 189, 255, 6, 157, 39, 7, 202, 208 
5247, 202, 189, 255, 5, 157, 39, 6, 202, 208 
DATA 247, 202, 189, 255, 4, 157, 39,5, 202, 208 
, 247, 202, 189, 255, 3, 157, 39, 4, 202, 208 
DATA 247,169, 32, 157, 0, 4, 232, 224, 40, 208, 248, 96 
DATA 169,0, 133, 20, 169, 4, 133, 21, 160,1,177 
» 20, 136, 145, 20, 200, 200, 192, 40 
DATA 208, 245, 136, 169, 32, 145, 20, 149, 40, 24 
, 101, 20, 133, 20, 169, 0, 101, 21,133, 21 
DATA 201, 7, 208, 221, 165, 20, 201, 232, 208, 215, 96 
DATA 169,0, 133, 20, 169, 4, 133, 21, 160, 39,177 
» 20, 200, 145, 20, 136, 136, 192, 255 
DATA 208, 245, 200, 169, 32, 145, 20, 169, 40, 24 
,101, 20, 133, 20, 169, 0, 101, 21, 133, 21 
DATA 201, 7, 208, 221, 145, 20, 201, 232, 208, 215, 96 
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Martian Invasion 


Fly your plane over the city, watching Martian Pods drop from the sky. 


A tripod or a flying machine will hatch out from the crater left by the Pod. 
The tripods shoot at you and the flying machine will try to crash into you. 
All this while a red weed starts growing and crawling. 


You must shoot as many Martians as possible before your inevitable 
defeat. If you crash into a pod you explode, so avoid them. This game has 
excellent graphics and should provide many hours of fun. 


Your controls are: 
"W" up 
‘x’ down 
‘A’ left 
‘D’ right 
‘S’ to fire your laser 


See how many you can get! 
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PROGRAM STRUCTURE 

INITIALIZATION 

PRINT GROUND/BUILDING 

INITIALIZE VARIABLES/COLOURS 

GET KEY PRESSED 

FACE FIGHTER IN LEFT/RIGHT DIRECTION 
CHECK HORIZONTAL POSITION OF CRAFT 


MOVE CRAFT TO NEW HORIZONTAL/VERTICAL 
POSITION 


PUT POD ON SCREEN 

PUT TRIPOD ON SCREEN 

PRINT FLYING MACHINE 

EXPLODE FLYING MACHINE 

FIGHTER COLLIDED WITH ANYTHING? 
SHELL FIRED? 

MOVE SHELL 

COLLISION OCCURRED? 

EXPLOSION SOUND OF ALIEN 
DESTROY FIGHTER 

DECREMENT NO. OF LIVES LEFT — FINISHED? 
PLAY AGAIN? 

END 
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LINES 

0— 10 
15—45 
50—53 

55 

56 — 58 

60 — 75 

80 — 95 

110 — 115 
150— 170 
250 — 270 
300 

500 

505 

510 — 535 
675 

677 — 690 
1000 — 1005 
1035 — 1045 
1035 — 1045 
1060 


VARIABLES 


O MEMORY 


CO = 


V 
A 


DIFFERENCE BETWEEN SCREEN AND VIDE 


START OF VIDEO CHIP 


HOLDS DATA READ IN 


HIGH ORDER BIT FOR SCREEN ADDRESSING 
MARTIAN TYPE: 1 = POD; 2 


CONTAINS LAST KEY PRESSED 
POSITION OF FIGHTER CRAFT 


K = 
B= 
A= 
MA 


FLYING MACHINE; 


NOT EXISTENT 


3= 


TRIPOD; 


0 
POSITIONS FOR SPRITES ON SCREEN 


LANDED; —1 
POINTER TO LAST KEY PRESSED REGISTER 


SCORE 
SHELL FIRED FLAG 


VARIABLE 


X,Y 
KB 
SC 
SH 
PRITE 4 1 


iS) 
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MARTIAN INVASION 


0 POKE 55,255 + POKE 56,47 
FOR I = 12544 TO 12551 
CO = 54272 
1 POKE 54296,15 
2 POKE V + 34,11 + POKE V + 35,8 + POKE V + 32,0 =: 
POKE V + 33,0 + PRINT "2"3 
5 FOR I = 13312 TO 14015 + READ A + POKE I,A =: 
NEXT = POKE V + 37,11 + POKE V + 38,5 
10 FOR I = 12288 TO 12375 + READ A +: POKE I,A : 
NEXT = POKE V + 22, PEEK ( V + 22) OR 16 ¢ 
POKE V + 24,28 
15 PRINT “MMMM MMO MMOaWa@e wea we 
Co} (2) fo} (1 fe) (e] ES BBBBBBBBBBBBBBBBBBBBRBRBBBRR 
BBBBBEBBBEBBB" ; 
20 PRINT “BBBBBRBBBBBBBBBRBBBBRBBBBBBEBRBBBRBEBEBB" 
3 + POKE 2023,2 : POKE 56295,5 
25 PRINT "(00 O 8] ®) £400 [lo £499 C 88 08 88 88 
2002 CC) 08 88 88 88 88000 CF AN 88 89900 2 O68 Of B86 i> 
A £4090 CO ff 9822 2) 88 889d 2 O68 iA"; 
30 PRINT "BIBI BIBI BEI BPI OG @@aA. . .Af) O68 Of 8 
G8 88 €8 Ee9909000 (©) HE G8 08 88 88 B82oo0D00 (©) B80 8 88 
BS B8ao [odo [5 90" 5 
35 PRINT “ Bj 2] &] M8000 FC) B8 88 882d OC 88 FE BR DDo 1) 
G8 G8 88900 C 9G 88 889000 CO 8B 882 (ISAO 88 88 Bo OO 
Gad () ) Co) 9 fe) el"; 
40 PRINT “Bl BI IA . £s000000 [990 [690 CO O08 OE 8 88 80 
G8 88 88 88 680990000000 CF 88 Hl 88 88 BE BE D22900 () OE 
G8 68 88 88 88a99000" 5 
45 PRINT " (9 (J aio () 8 SEDO C) 68 88 ISA"; 
SO POKE V + 28,3 + POKE V + 39,2 = POKE V,20 + 
POKE V + 1,99 + KB = 197 + POKE V + 16,0 =: 
POKE 2042,215 


V = 53248 : 
POKE 1,0 + NEXT = 


ap 


92 POKE 2040,216 + DI = O + POKE V + 21,1 = 
MA = —- 1 = PO = PEEK ( V + 30 ) = PO = QO =; 
SH = 0 + RW = 0 = M1 = O 

93 SC = 0+ LI = 3 + PS = 0 = POKE 54290,0 = 
POKE 54291,0 POKE 54292, 240 


0S K = PEEK ( 197 PEEK ( V+ 16 ) AND 1 =; 


K = 10) * 8 - 


96 IF K = 10 THEN 
57 IF K = 18 THEN 
3B POKE 2040,216 + DI 
60 IF A < O AND B THEN POKE V + 16, 
PEEK ( V + 16 ) AND 254 + B=0 : 
65 IF A > 255 AND B = O THEN POKE V 
PEEK (V+ 16) OR 17+ B=1 + = 
7O IF A < 20 AND B = QO THEN POKE V + 16, 
PEEK ( V+ 16) OR 1+ B=1 = 
73 IF A > 64 AND B THEN POKE V 
1 


) 
= ) 
K = 18) *8 

D 

D 


D+ 


PEEK ( V + 16 ) AND 254 
BO POKE V,A = A = PEEK ( V + 
*B- (K = 25) * 8 
85 IF A < S2 THEN A = 52 


+ 
B 
) 
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115 


IF A > 203 THEN A = 203 


POKE V + 1,A + IF MA > — 1 THEN 120 
IF RND ( 1 ) > .1 THEN 500 
POKE V + 23,0 


POKE V + 16, PEEK ( V + 16 ) AND 253 
IF RND ( 1 ) > .75 THEN POKE V + 16, 
PEEK ( V + 16 ) OR 2 = POKE V + 2, 
RND ( 1) ® 64 
POKE V + 3,52 + POKE V + 40,2 + POKE 2041,214 =; 
POKE V + 21, PEEK ( V + 21 ) OR 2 ¢ 
POKE 54290, 17 
ON MA GOTO 150, 200, 250, 300, 300,310 
X = ( 600 - PEEK (V +3) ) &€ 25 ¢ 
X1 = INT ( X / 256) = Yi = X -— X1 * 256 
POKE 54287,X1 + POKE 54286,Y1 
POKE V + 3, PEEK (V+3) +484 
A = PEEK (V+ 3) ¢ IF A < = 224 THEN 500 
POKE 54276,0 =: POKE 54273,5 + POKE 54272,103 + 
POKE 54277,68 = POKE 54274,129 
X = PEEK (V +2) - 203 


+ 
( 
+ 

MA = O = POKE V + 2,20 + RND ( 1 ) % 236 = 
V 
( 
¢ 


IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
X = INT ( X / 8B) + 1944 + POKE X,6 + 
POKE X + 1,32 + POKE X + 2,7 
POKE X + 40,8 + POKE X + 42,9 : 
POKE X + CO + 41,13 + POKE X + 41,10 
MA = INT ( RND (1) #* 3 + 1) ¢ POKE V + 40,12 
+ IF MA = 3 THEN POKE V + 40,6 =; 


CH = INT ( RND (1) #5) 
IF MA < 3 THEN POKE V + 23,2 + POKE V + 3,192 =: 
GOTO 145 
POKE V + 3,213 
CR = X - 39 + RW = 0 = POKE 54290,0 + GOTO 500 
POKE 2041,208 + PO + PO = 1 — PO + 
IF PO = O THEN 400 
X = PEEK (V+2)-98 2 
IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
IF X < 20 THEN MA = 2 = X = 20 + GOTO 500 
IF X > 255 THEN POKE V + 164, 
PEEK ( V + 16) OR 2 + POKE V + 2,X -— 256 : 
GOTO 400 
POKE V + 16, PEEK ( V + 16 ) AND 253 + 
POKE V + 2,X + GOTO 400 
POKE 2041,210 + PO + PO = 1 —- PO : 
IF PO = QO THEN 400 
X = PEEK (V +2) +82 
IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 
IF X > 320 THEN MA = 1 ? X = 320 + GOTO 500 
IF X > 255 THEN POKE V + 14, 
PEEK ( Vv + 16 ) OR 2 = POKE V + 2,X — 256 + 
GOTO 400 
POKE V + 16, PEEK ( V + 16 ) AND 253 + 
POKE V + 2,X + GOTO 400 
IF PEEK ( V + 3) > 150 THEN POKE V + &, 
PEEK (V+ 3) —- 8 = POKE 2041,213 + GOTO 500 
POKE 2041,212 + PO = PO = 1 - PO =: 
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257 


240 


408 
410 
5900 
905 
910 
915 
5320 
925 
330 
535 
940 
950 
055 


960 


(V+ 2 
THEN X = X + 256 
Y1 = PEEK ( V+ 1) = X1 = PEEK (¢ V ) 


>») > IF PEEK ( V + 16 


a 
a 


IF PEEK ( V + 16 ) AND 1 THEN Xi = X11 
Y = PEEK ( V+ 3 ) += IF CH < 10 AND RND 


> «9 THEN CH = CH + 1 

IF RND ¢ 1 >) < CH / 10 THEN X = X + ( 
*8B- ¢« X < X1 ) *€ 8B + GOTO 275 

X = X + INT ( RND ( 1) * 3-1) & 8 
IF X < 20 THEN X = 20 

IF X > 320 THEN X = 320 

IF RND ( 1 ) < CH / 10 THEN Y = Y + ( 
k*B-¢ Y< Y1 ) & 8B = GOTO 285 

Y= ¥Y + INT ( RND (1) *% 3-1) %8 
IF Y¥Y < 32 THEN Y = 52 

POKE V + 3,Y = IF X > 255 THEN POKE V 
PEEK ( V + 16 ) OR 2 + POKE V + 2,%X 
GOTO 500 

POKE V + 16, PEEK ( V + 16 ) AND 253 + 
POKE V + 2,X = GOTO S00 


X 


») AND 2 


POKE 2041,218 = POKE V + 40,2 = MA = MA + 1 


GOTO 500 
POKE V + 21, PEEK ( V + 21 ) AND 253 = 
+ GOTO 500 


IF SH < > O OR RND ( 1) < .1 THEN 500 


4 


4 


POKE 54276,0 + POKE 54273,72 + POKE 54272,169 


POKE 54277,79 = POKE 54276,129 
SH = - 1 = X = PEEK ( V+ 2) — 18 


IF MA = 2 THEN SH = 1 + X = PEEK ( V + 2 )+18 
IF PEEK ¢( V + 16 ) AND 2 THEN X = X + 256 
+ 


IF X > 255 THEN POKE V 
PEEK ( V + 16 ) OR 4 
GOTO 410 

POKE V + 16, PEEK ( V + 16 ) AND 251 +; 
POKE V + 4,X 


16, 


tl 


POKE V + 4,X — 256 


POKE V + 5S, PEEK ( V + 3 ) = POKE V + 41,8 + 


POKE V + 21, PEEK ( V + 21 ) OR 4 
IF PEEK ( V + 30 ) AND 1 THEN 1000 
IF SH = O THEN 530 
X = PEEK ( V + 4 ) + SH ® 16 = 


IF PEEK ( V + 16 ) AND 4 THEN X = X + 256 


IF X < 20 OR X > 320 THEN POKE V + 21, 


aa 


PEEK ( V + 21 ) AND 251 = SH = 0 = GOTO 530 
IF X > 255 THEN POKE V + 16, PEEK ( V + 16 ) 
OR 4 = POKE V + 4,X — 256 += GOTO 530 


POKE V + 16, PEEK ( V + 16 ) AND 251 + 
POKE V + 4,X = I = PEEK ¢ V + 30 ) 

IF RW > O THEN 550 

IF RND ¢ 1 ) < .95 OR MA < 1 THEN 600 

RW = CR 


POKE RW + CO,2 = POKE RW,3 = R1 = RW + INT 


( RND (1) * 3-1 ) 
IF Ri < 1904 OR R1 > 1943 THEN RW = O 
GOTO 600 


POKE R1 + CO,2 + IF Ri < RW THEN POKE RI1,S 


GOTO 575 
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a 
- 


IF Ri > RW THEN POKE Ri 
POKE R1,3 
RW = R1 


14 3 


GOTO S75 


IF PS < > Q OR K < > 13 THEN 650 


POKE 54276,0 = POKE 54273,57 


- 
. 


POKE 54272,172 


POKE 54277,79 = POKE 54276,129 


X = PEEK ( V ) + 24 = Y 


= PEEK 


( 


V+ ii 


) 


IF PEEK ( Vv + 16) AND 1 THEN X = X + 256 
=X — 48 


PS = 1 + IF DI THEN PS 


1 


X 


+ 13 


ir 


POKE V + 7,Y = IF X > 255 THEN 
POKE V + 6,X - 256 + POKE V + 164, 
PEEK ( V + 16 ) OR 8 + GOTO 625 
POKE V + 6,X + POKE V + 14, 
PEEK ( V + 16) AND 247 
POKE V + 42,8 + POKE 2043,215 + POKE V + ?1, 
PEEK ( V + 21) ORB 
IF PS = O THEN 675 
X = PEEK (V +6) + PS * 12 ¢ 
Y = PEEK (V +7) ¢ IF PEEK ( V + 16) AND 8 
THEN X = X + 256 
IF X < 20 OR X > 320 THEN POKE V + 71, 
PEEK ( V + 21 ) AND 247 = PS = 0 + GOTO 675 
IF X > 255 THEN POKE V + 6,X — 256 = 
POKE V + 16, PEEK ( V + 16 ) OR 8 = GOTO 675 
POKE V + 6,X = POKE V + 14, 


PEEK ( V + 16 ) AND 247 


IF PEEK ¢( V + 30 ) AND 2 THEN 677 
GOTO 690 
SC = 5C + 10 = MA = 4 = POKE V + 21, 


PEEK ( V + 21 ) AND 247 
POKE 54276,0 = POKE 54273, 34 


POKE 54290,0 
GOTO 35 
POKE 2040,218 + SH = O 


PEEK ( V + 21 ) AND 251 


POKE 54277,143 


a 
- 


= 
- 


PS = 0 


POKE 534272,75 
POKE 54277,74 = POKE 54276,129 


+ POKE V + 21, 


s 
7 


POKE 54276,0 = 


POKE 54273,3 = POKE 54272,155 + POKE 54276,129 
: FOR I = 1 TO 2000 + NEXT 

LI =LI- 1 ¢ I = PEEK (V+ 30) ¢ 
POKE V + 21, PEEK ( V + 21 ) AND 254 + 
POKE V,20 + POKE V + 1,99 

POKE V + 16, PEEK ( V + 16) AND 254 = DI = 0 

IF LI > O THEN POKE 2040,16 + POKE V + 21, 
PEEK ( V + 21) OR 1 = I = PEEK ( V+ 30) + 
GOTO 55 

POKE 54273,0 + POKE 54272,0 = POKE 54287,0 : 
POKE 54286,0 

POKE V + 24,20 + POKE V + 21,0 + PRINT " 2 Ia 
HARD . LINES" 

PRINT “ (@) fe] (1 fe] gaYOU . SCORED"; SC 

PRINT " (@] (©) BATHE . MARTIANS 4 WILL . OVER . RUN 
« EARTH" 

PRINT " {oJ (e0 [) MBANOTHER . GAME?" 

GET At + IF AS = "Y" THEN POKE V + 24,28 =: 
PRINT "Ea"; + GOTO 15 
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1045 IF A® < > “N" THEN 1040 
1050 POKE V + 22, PEEK ( V + 22 ) AND 239 
1060 END 
10000 DATA 3,192,0,0, 64,0, 1,64,0,1,80,0,3,84,0 
,15,85, 64,5, 85, 80,5, 85, 80, 1,85, 64 
10005 DATA 1,85,0,0, 252,0,0, 136,0, 2, 10,0,8,0, 128 
32,0, 32, 32,0,8, 32,0,8,32,0,8 
10010 DATA 32,0,8, 32,0,8, 136,90, 34,99 
10015 DATA 60,0,0,4,0,0, 20,0,0, 21,0, 0,53, 64,0, 245 
,84,0,85,85,0,85,85,0 
10020 DATA 21,84, 0, 21, 80,0, 15, 192, 0,8, 128,0,8,128 
39,32, 32,0, 32, 32,0, 128,8,0 
10025 DATA 128,8,0, 32,8, 0, 32,8, 0,8,8,9, 34, 34,9,99 
10030 DATA 0,3,192,0,1,9,0,1,64,0,5, 64,0, 21,192 
,1,985, 240,5, 85, 80,5, 85, 80, 1,85, 64 
10035 DATA 0,85, 64,0, 63,0,0,34,0,0, 160, 128, 2,0 
,32,8,0,8, 32,0,8, 32,0,8,32,0,8 
10040 DATA 32,9,8,32,0,8, 136,0, 34,99 
10045 DATA 0,0, 60,0,0, 16,0, 0, 20,0,0,84,0,1,92,0 
»21,95,9,85, 85,0,85,85,0, 21,84 
10050 DATA 0,5,84,0,3, 240,0, 2, 32,0, 2, 32,0,8,8,0 
,8,8,0, 32, 2,0, 32, 2,0, 32,8,0,32,8 
10055 DATA 0,32, 32,0, 136, 136,99 
10060 DATA 0,9,0,0,0,0,09,0,0, 64,0, 4, 20,0,80, 1 
11,0,0, 68, 0,0, 32,0,0,32,0,0, 168,0 
10065 DATA 2,102,0, 2,170,0, 3, 239, 0, 2, 238, 0,0 
168, 0,0, 168,0,0,100,0,1, 205,0 
10070 DATA 4,0, 64, 4,0, 64,17,1,16,99 
10075 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1 
50,4, 68, 64, 16, 32, 16,64, 32,4, 0, 168,0 
10080 DATA 2,102,0, 2,170,0, 3, 239, 0, 2, 238,0,0 
, 168, 9,0, 168,0,0,100,0,1, 205,90 
10085 DATA 4,0,64,4,0,64,17,1,16,99 
10090 DATA 0,0,0,0,0,0,0,0, 0, 192, 32,12, 48, 32 
, 48, 12, 32, 192, 3, 35, 0,0,84,0,0,84,0 
10095 DATA 170,86, 168, 170, 84, 168, 0,84,0,0, 84 
50,3, 35,0,12, 32,192, 48, 32, 48 
10100 DATA 192,32,12,0,0,0,0,0,0,0,0,0,0,0,0,99 
10105 DATA 255, 204, 255, 0,0,0,0,0,0,0,0,0,0,0 
,9,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,9,9,0,0,0,0,0,0,0,0,0,0,0,0,99 
10115 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,09,12,0,0,15,0,0 
10120 DATA 15,195,192, 15, 255, 240, 42,170,170 
» 2,250, 168, 0, 254,0,0, 252, 0, 3, 240,0 
10125 DATA 3,192,0,3,0,0,0,0,9,99 
10130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,9,9,0,0,0,0,0,0,0,0,0,0, 48,0,0, 240 
10135 DATA 3,195, 240, 15, 255, 240, 170,170, 168, 42 
,175,128,0,63,0,0,63,0,0, 15,192 
10140 DATA 0,3, 192,0,0,192,0,0,0,99 
19145 DATA 0,0,0,0,8,0, 2,8, 8,0,8, 32,0, 42,128 
0,174, 160, 2, 239, 128, 42, 255, 160 
10150 DATA 11,255, 224, 2, 255, 224, 2, 255, 128, 2 
,190,0,8, 186, 128, 0, 184, 32,0,40,0 
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10155 DATA 0,32,0,32,32,0,0,0, 128, 2,0, 2,0,0,0,0,0,0,99 
19160 DATA 255,195,195, 195, 195, 195, 195, 255, 60 
, 00, 24, 126, 24, 24, 102, 102 
10165 DATA 255, 255, 255, 255, 255, 255, 255, 255,12 
751,192, 48, 12,51,51,192 
10170 DATA 0,0, 192, 48, 204,6,3,9,0,09,0, 3,12, 48, 207,0 
10175 DATA 0,0, 0, 128, 128, 192, 224, 240,0,0,0,0,1 
,1,1,3, 240, 248, 252, 252, 252, 252 
10180 DATA 254,255, %3,3,7, 7,15, 31,127, 255,0 
, 105, 85,685,985, 85,85, 255 


CHEXSUM 
@=422 12M=1950a 238-2918 
{=595 1ePp=2947 SaA=e7O1 
2=3411 123=1244 216=e396 
S=3647 125=3549 40@=1956 
1@=4656 12P7=3B22 492=3378 
15=5252 12a=2214 4A5=4348 
2@=43931 {22=2n98 496-1985 
25-2416 125=3241 47 =3956 
36-6312 149=4996 4803-2263 
S35=Y096 t42=P76a 4{1@=3447r 
qe=804l 143=6756 S3HH=1444 
45=1905 145=2P466 SOS =870 
5@=4595 15@=P762 S1Q=3607 
S2=5663 155=2158 2135=4125 
B2=3332 is@=PF165 520-3956 
55=43524 165=2951 Hoos sol 
56=1@56 17@=2917 S38=982 
57=1063 HAA=27E3 a35=1739 
2-904 2A5=3159 S40=S507 
6A=3398 219=P26a 550=3148 
BS=35975 215-2951 SoU =P2687 
YA=3597 1 POM=Pais 360=2683 
Y53=3413 =>5h=4dAaP 2 365=1818 
S68@=3183 255-4882 37 O0=3383 
25=1036 257=2944 3/79 =488 
9@=1154 PEM=23BE2 660-1824 
S5=1691 2eB5=47A1 EB2=3384 
1@H=1111 2 7H=32048 6H5=4352 
161=618 erfe=1192 616=2250 
185=3652 275=4?710 G&i5=4736 
1i10=3739 22A=3A48 620=2310 
115=4324 Pes=4744 625=2931 


nmnooam mn 
woman 
Waa mn os t 
of Il I 
Oh Ww al 

w® WwW 

WwW Ww 

june 


mM 
KS) 

I 
fa 
~ 
“~/ 


14ng=4191 
19035=3207 
1@18=4756 
i1@i1e=2951 
16815=4538 
{@17=2393 
IBEG=2746 
{O@25=1409 
1430=3618 
1@35=1478 
{440-2971 
{645=1182 
1@39=1573 
1@66=129 
1HMOO=4319 
1Q@0035=490E5 
1HOla=1477 
1@6135=3407 
1O68e8=3805 
1HG@2Pe5=2246 
16036=4426 
1MAS3=3933 
1S@40=1477 
1@@435=4041 
19O5e=4e279 
190955=1219 
1MGBEB=4112 
1Q@@65=3711 
1467@6=14925 
1O66735=4252 


14980=37 11 
1MOBSs=-1425 
{HAesde=4157 
1SOS5=3561 
168166=2118 
1@1AS=4353 
LALIB=3768 
i@ilin=4eage 
{@tee=4a5a 
LHISa=1326 
{H813G0=4205 
(ALS 5=4@es 
19 14@=1452 


my) 
0 


™ 


i) 
mM 


en ee ee 

m ws 

en oe a | 
“J 
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Castle of Doom 


Explore the rooms within the castle walls, look for treasure and try 
to avoid the slime monsters and killer robots. 


Points are gained by moving over question marks and killing monsters or 
robots with your Proton gun. 


As you move off the screen from one room you are presented with 
another. Move back and you return to the same room but now with 
different contents! 


You are killed if you touch the electrified walls or any of the monsters. 
Some monsters are faster than others and the robots are very 
dangerous. 


Controls are: 
‘W’ up ‘D’ right 
‘X’ down ‘A’ left 
‘S’ to fire your gun 
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PROGRAM STRUCTURE LINES 
INITIALIZATION O0— 50 
READ KEY PRESSED, GET POSITION OF PLAYER 595 


MOVE PLAYER HORIZONTALLY, CHECKING FOR 56— 70 
DOORS 


MOVE PLAYER VERTICALLY, CHECKING FOR 75 — 80 
DOORS 

CHECK IF PLAYER HIT WALL OR MONSTER 80 — 110 
OR QUESTION MARK 

INCREASE SCORE IF HIT QUESTION MARK 115— 125 

HAS PLAYER FIRED? 150 

SET UP SHOT 151 — 162 

MOVE SHOT UNTIL HITS SOMETHING OR 170 — 198 


DISAPPEARS. IF HIT WALL EXIT, IF HIT 
MONSTER INCREASE SCORE AND EXIT 


TURN OFF SHOT SOUNDS 199 
IF MONSTER ONE EXISTS THEN MOVE IT 200 — 290 
IF MONSTER TWO EXISTS THEN MOVE IT 300 — 390 
TO MAIN LOOP AGAIN 400 


SUBROUTINE TO GENERATE NEW ROOM, CREATE 1000— 1200 
TWO NEW MONSTERS AND A QUESTION MARK 
(RANDOMLY) 


PLAYER KILLED, IF NO. OF LIVES LEFT 2000 — 2025 
EQUALS 0 THEN END GAME. 
ASK PLAYER IF WANT TO PLAY AGAIN 


DATA 1000 — 12120 
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PLACE TO READ KEY PRESSED FROM 


ROOM NUMBER 
KEY PRESSED 


L1 = LIVES LEFT 
Sc 


KB 
K 


VIDEO CHIP 
SCORE 


VARIABLES 


V 
R 


TEMPORARY STORAGE 


OFFSET TO MOVE MONSTERS 


DI = DIRECTION OF MOVEMENT 


YX, YY, B$, DS 


Y 


X 


HIGH X — BIT FOR SPRITES 


SHOT IN PROGRESS 
TYPE OF MONSTER 2 
CONTAINS ROOM DATA 


M1 = TYPE OF MONSTER 1 


|, A, B, U 
$1, $2 


B 

SH 
M2 
AS 


SPRITE 


SPRITE 


CREATURE 1 


PLAYER 


SPRITE 


SPRITE 


CREATURE 3 


CREATURE 2 
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CASTLE OF DOOM 


O 


48 


7O 


POKE 55,255 =: POKE 56,47 = V = 53248 : 
FOR I = 12544 TO 12551 + POKE 1,0 + NEXT + 
POKE V + 32,0 

POKE V + 33,0 + FOR I = 12288 TO 12319 =: READ A 
¢ POKE I,A + NEXT + POKE 54296,15 

POKE V + 24,28 + POKE V + 22, PEEK ( V + 22 ) 
OR 16 + PRINT “(]" + FOR I = 12352 TO 12991 =; 
READ A : POKE I,A 

NEXT = POKE V + 37,10 

DIM AS ( 24) + R=O0 
POKE 54292,0 

FOR I = 0 TO 24 + READ AS ( I ) * NEXT + 
LI = 3 + KB = 197 + SC =0 

POKE V + 16,0 = POKE V,150 + POKE Vv + 1,120 + 
POKE V + 39,6 + POKE V + 26,15 : 
POKE 2040,193 + DI = 0 

POKE V + 40,2 

GOSUB 1000 = SH = 0 

K = PEEK ( KB ) + A = PEEK 
*s8-(kK=18)%8 82 8B 


POKE V + 38,5 
POKE 54278,0 : 


o> © 


(V) + €( K = 10 5 


IF K = 10 THEN DI = 1 
IF K = 18 THEN DI = 0 
POKE 2040,193 + DI 
IF A < O AND B THEN B = O ¢ A = 252 
IF A > 255 AND B = O THEN B= 1 + A=0 
IF B AND A > 60 THEN POKE V + 14, 
PEEK ( V + 16 ) AND 254 + POKE V,20 : 


R= R + 1 ¢ GOTO 50 

IF B = O AND A < 20 THEN POKE V + 164, 
PEEK ( V + 16 ) OR 1 * POKE V,60 + R=R - 1 
+ GOTO SO 

POKE V,A = POKE V + 16, PEEK ( V + 16 ) OR B = 
IF B = O THEN POKE V + 16, PEEK ( V + 16 ) 
AND 254 

A = PEEK (V+1)+¢K=9) &8- 
{K = 235 )%4% 8 

IF A < S32 THEN POKE V + 1,220 + R=R +5 
GOTO So 

IF A > 220 THEN POKE V + 1,52 > R=R- 5 
GOTO So 

POKE V + 1,A + IF PEEK ( V + 31 ) AND 1 
THEN 2000 

IF PEEK ¢( V + 30 ) AND 1 THEN 95 

GOTO 150 

IF PEEK ¢( V + 30 ) > 128 THEN 115 

IF PEEK ( V + 30 ) AND & THEN 2000 

IF PEEK ( V + 30 ) AND 4 THEN 2000 


a> 


«> 


GOTO 150 

Sc = SC + INT ¢ RND (1) *% 5 +1 =) #& SO 

POKE V + 21, PEEK ( V + 21 ) AND 127 > T=- 1 
IF K < > 13 THEN 200 


POKE 54276,0 = POKE 54277,204 = POKE 354273,137 
+ POKE 54272,43 + POKE 534276, 33 
POKE 34290,0 = POKE 54291,136 + POKE 54287,69 = 
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PEEK ( V + 14 ) AND 1 


153 


154 
155 
140 


162 


170 


175 


180 


185 


190 


191 
192 


193 
194 


195 


198 


199 


200 
205 


210 
212 
215 
220 
225 
227 
230 
235 
247 
2590 
251 


295 


POKE V + 16, PEEK ( V + 16 ) AND 253 
POKE 54286,149 + DS = 8 + SH = 1 =: 
X = PEEK ( V) + 24 + IF PEEK ( 
AND 1 THEN X = X + 256 
POKE 54290,17 + IF DI THEN DS = — 
B= 0: IF X > 256 THEN B = 2 = X 
POKE V + 2,X = POKE V + 3, PEEK ( 
POKE V + 16, PEEK ( V + 16 ) OR 
POKE 2041,195 + DI 
POKE V + 21, PEEK ( V + 21 ) OR 2 
A = PEEK (V +2) + DS + B = PEEK (V+ 16) 
AND 2 : IF A < O AND B THEN A = 248 =: B =O 
IF A > 255 AND B = O THEN B = 2+ A=0 


< 


+ 14 ) 


a< 1 oO 
+ +} oe 
| 
N 
di 
o 


POKE V + 2,A + FOKE V + 16, PEEK ( V + 16 ) OR B 


+ IF B = O THEN POKE V + 16, PEEK ( V + 16 ) 
AND 253 

IF PEEK ( V + 31 ) AND 2 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 = GOTO 199 

IF ( A < 20 AND B = 0 ) OR ( A > &6O AND B ) 
THEN POKE V + 21, PEEK ( V + 21 ) AND 253 + 
GOTO 200 

U = PEEK ( V + 30) + IF ( U AND 128 ) THEN 
IF ( U AND 2 ) THEN 198 

IF U AND 2 THEN 194 

GOTO 198 

IF ( U AND 4 ) AND M1 < 5 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 + SH = 0; 
SC = SC + M1 * 10 = M1 = 5 ¢ GOTO 199 

IF ¢( U AND 8 ) AND M2 < 5 THEN POKE V + 21, 
PEEK ( V + 21 ) AND 253 + SH = 0 : 
SC = SC + M2 * 10 + M2 = 5 + GOTO 199 

GOTO 170 

POKE 54276,0 = POKE 54277,72 + POKE 54273,4 : 
POKE 54272,73 + POKE 54276,129 

IF Ml = 0 THEN 300 

X = PEEK (V +4) + Y = PEEK ( V 
IF PEEK ( V + 16 ) AND 4 THEN X 

YX = PEEK ( V) = YY = PEEK ( V + 
IF PEEK ( V + 16) AND 1 THEN YX = YX + 256 

IF Mi > 4 THEN 275 

IF M1 = 4 THEN 250 

IF Mi = 3 AND RND ( 1) > .3 THEN 250 

Xl =X + ¢(X > YX) &®S1- (X ¢ YX) & S1 

) 


= Il + 


v 


YizryYyYreC Yo YY *S1- ¢«(Y< YY ) &*& Si 
IF X1 > 255 THEN X1 X1 - 256 = POKE V + 16, 
PEEK ( V + 16 ) OR 4 = GOTO 235 
POKE V + 16, PEEK ( V + 16 ) AND 251 
POKE V + 4,X1 = POKE V + 5,Y1 
GOTO 300 


X1 = X + INT ( RND (1) €& 3 - 1) ® G1 = 
Y1 = Y + INT ¢( RND ( 1) © 3 - 1+») # SI 
IF X1 < 20 OR X1 > 320 OR Y1 < S2 OR Y1 > 220 


THEN Xi = X = Y1 = Y . 
POKE V + 16, PEEK ( V + 16 ) AND 251 + 


IF X1 > 255 THEN X1 = Xi —- 255 = POKE V + 14, 


PEEK ( V+ 16 ) OR 4 
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POKE V + 4,X1 * POKE V + 5,Y1 

GOTO 300 

IF M1 = 10 THEN 290 

POKE V + 41,1 + POKE V + 28, PEEK ( Vv + 28 ) 
AND 251 + Mi = Mi + 1 + GOTO 300 

POKE V + 28, PEEK ( V + 28) OR 4+ M1 =0 ¢ 
POKE Vv + 21, PEEK ( V + 21 ) AND 251 

IF M2 = 0 THEN 400 

X = PEEK (V+ 6) * Y = PEEK ( V 
IF PEEK ( V + 16 ) AND @ THEN X 

YX = PEEK (Vv) ¢ YY = PEEK (V+ 
IF PEEK ( Vv + 16 ) AND 1 THEN YX = YX + 256 

IF M2 > 4 THEN 375 

IF M2 = 4 THEN 350 

IF M2 = 3 AND RND ( 1) > .3 THEN 350 

X1 =X + ( X > YX ) &S2- (xX < YX) & G2 = 
Yi=Y+(Y>YY) &S2-¢Y<¢ YY) & S?2 

IF X1 > 255 THEN X1 = X1 - 256 = POKE V + 16, 
PEEK ( V + 14) OR 8 = GOTO 335 

POKE V + 16, PEEK ( V + 16 ) AND 247 

POKE V + &,X1 + POKE V + 7,Y1 

GOTO 400 


= il + 


7 
X 
) 


X1 = X + INT ( RND ( 1) & 3 - 1) ¥ G2 = 
Yi = ¥Y + INT ( RND ( 1) € 3 - 1) & S2 
IF X1 < 20 OR X1 > 320 OR Y1 < S2 OR Y1 > 220 


THEN X1 = X + Y1 = Y 

POKE V + 16, PEEK ( V + 16 ) AND 247 =; 
IF X1 > 255 THEN X1 = X1 -— 256 : POKE V + 164, 
PEEK ( V + 16) OR B 

POKE V + 6,X1 * POKE V + 7,Y1 

GOTO 400 

IF M2 = 10 THEN 390 

POKE V + 42,1 = POKE V + 28, PEEK ( V + 28 ) 
AND 247 + M2 = M2 + 1 = GOTO 400 

POKE V + 28, PEEK ( V + 28) OR 8 = M2 = 0 
POKE V + 21, PEEK ( V + 21 ) AND 247 


GOTO 55 

AS = AS'( R) = BS = "OOOO" = PRINT "2" = 
POKE V + 35,8 + INT ¢€( R / 5 ) + POKE V + 21,0 
+ FOR I = 1 TO 20 

IF LEN ¢ AS ) > = 4 THEN BS = LEFTS ( AS,4 ) = 


AS = RIGHTS ( AS, LEN ( AS) - 4) 
PRINT " f&9"5; TABC ( I - 1) ® 2) 5 = 
D = VAL ( LEFTS ( B,2 ) ) = 
U = VAL ( RIGHTS ( BS$,2 ) ) 
IF D = O THEN 1025 
FOR J = 1 T0 D = PRINT “9A (©) BE 8E"S = NEXT 
PRINT “BOM MOM Gao © © © a @ @& 
fe) fe) fo) fe) fe) fe) fe) fe te" s TABC ¢ IT - 1) & 2) 
IF U > O THEN FOR J = 1 TO U = PRINT “OAC OS 88" 
5 = NEXT 
NEXT I = T = — 1 + IF RND ( 1) < .6& THEN 1065 
T = 0 = POKE V + 14,100 + RND ( 1) * 150 
POKE V + 15,100 + RND ( 1) &® SQ + POKE V + 16, 
PEEK ( V + 16 ) AND 127 = POKE V + 46,2 
POKE V + 29, PEEK ( V + 29 ) OR 128 = 
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‘POKE 2047,197 + IF KE THEN 1055 
1055 POKE V + 21,128 = I = PEEK ( V + 31) + 
PEEK ¢( V + 31 ) + PEEK ( V + 31 ) 
1060 IF PEEK ( V + 31 ) AND 128 THEN T = - 1 = 
POKE V + 21,0 
1065 POKE V + 21, PEEK ( V + 21 ) OR 1 = 
I = PEEK ( V + 31 ) = I = PEEK ( V + 30 ) 
1070 M1 = 0 = M2 = QO = IF RND ( 1) < .3 THEN 1110 
1072 POKE V + 4, RND ( 1 ) ¥€ 236 + 20 = POKE V + 5, 
RND ( 1 ) ¥ 168 + 52 
1075 M1 = INT ( RND (1) * 4+1~) = 


POKE 2042,198 + Mi = POKE V + 41,6 = S1 = 2 
1080 IF M1 = 2 THEN POKE V + 41,11 = S1 = 6 
1085 IF M1 = 3 THEN POKE V + 41,9 = Sil = 4 
1090 IF M1 = 4 THEN POKE V + 41,14 + S51 = 4 
1100 POKE V + 21, PEEK ( V + 21 ) OR 4 = 

I = PEEK ( V + 31 ) 
1110 IF RND ¢( 1) < .3 THEN 1150 
1112 POKE V + 6, RND ( 1) ® 236 + 20 = 

POKE V + 7, RND ¢ 1) *% 168 + 52 
1115 M2 = INT ¢ RND (1) ®€ 4+1 =~) + 

$2 = 2 


POKE 2043,198 + M2 = POKE V + 42,6 =: 
= 6 


1120 IF M2 = 2 THEN POKE V + 42,11 += S2 
1125 IF M2 = 3 THEN POKE V + 42,9 - S2 = 4 
1130 IF M2 = 4 THEN POKE V + 42,14 = S2 = 4 
1135 POKE V + 21, PEEK ( V + 21 ) OR 8 = 


I = PEEK (V+ 31 ) 
1150 PRINT "HMMM OOOO WO OO 2 2 & 
fe) fe) ed) oe) ee) ee m"s = FOR I = 1 TOLI =; 
PRINT "[3§B . "3 + NEXT 
1155 POKE Vv + 28,15 
1200 RETURN 
2000 POKE V + 28, PEEK ( V + 28 ) AND 254 = 
POKE 54276,0 + POKE 54277,143 + POKE 54273,34 
2001 POKE 54272,75 =: POKE 54276,129 + POKE V + 39,1 =; 
FOR I = 1 TO 2000 + NEXT 
2004 POKE V,150 + POKE V + 1,120 
2005 POKE V + 28, PEEK ( V + 28 ) OR 1 
POKE V + 39,6 + POKE V + 21,0 + 
R= 0 + IF LI > O THEN 50 
2010 POKE V + 24,20 = PRINT " {2 GSHARD . LINES, . YOU 
2 WERE . KILLED" 
2012 PRINT " (@) @ (1 a@YOU . SCORED"SC 
2015 PRINT " (@} fe) MBANOTHER . GAME . ?" 
2017 POKE 54273,0 + POKE 54272,0 + POKE 54287,0 : 
POKE 54286,0 
2020 GET AS =: IF AS = “Y" THEN SC = 0 = LI = 3 = 
POKE V + 24,28 + GOTO 15 
2025 IF AS < > “N" THEN 2020 
2030 END 
10000 DATA 255, 234, 234, 234, 234, 234, 234, 255, 255 
171,171,171, 171,171,171, 255 
10005 DATA 24, 24, 255, 24, 60, 108, 108, 108, 0,4, 249, 70,0 
39,9,0 
11000 DATA 0,0,0,0,21,0,90, 21,0,0,4,0,0,170,0,2 
, 170,138, 2,42, 164, 2,42,0, 2, 42,0 


LI =LI- 1+: 


180 


11005 


11010 
11015 


11020 


11025 
11030 


11035 


11040 


11045 


11050 


11055 


11060 


11065 


11070 
11075 


11080 


11085 


11090 


11095 


11100 


11105 


11119 
11115 


11120 


11125 
12000 


12005 


12010 
12015 


12020 


12025 


DATA 2,42,0,1,42,0,0,635,0,0, 63,0,0,51,0 
,9,51,0,0, 243, 0, 0, 195, 192, 0, 192, 192 
DATA 0, 192, 192, 0, 240, 240,0,9,0, 99 
DATA 0,0,0,0,84, 0, 0,84,0,0, 16,0,0,170,0 
, 162, 170, 128, 26, 168, 128, 0, 168,128 
DATA 0, 168, 128, 0, 168, 128, 0, 168, 64,0, 252 
20,0, 252, 0,0, 204, 0, 0, 204,0, 0, 207,09 
DATA 3,195,0,3,3,0, 3, 5,0, 15, 15,0,0,0,0, 99 
DATA 0,0,0,0,0,0,3,0,0,0, 32,0, 12, 168,0 


2194, 168,0, 12, 168, 0,0, 32,0,3,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
39,0,0,0,0,0,0, 0,0,0, 0,0,0,0,0,0,0 
DATA 99,0, 0,0, 0,0, 0, 0,0, 192 ,0,8,0,0,42 
,48,0, 42, 131,0, 42, 49,0,8,0,0,0,192 
DATA 6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,0,99, 0,56, 0, 0, 126,0,1, 231, 128, 3, 

1,192, 6, 0, 224, 0,0, 224,0, Oy 228 


DATA 0,1,192,0, 3, 128, 0,7,0,0, 14,0, 0, 28 
, 0,0, 56, 0, 0, 48, 0, 0, 48, 0,0, 48, 0,0,0,0 

DATA 0,0,0,0, 48,0, 0, 120, 0,0, 48,0, 99, fe) 
59,0, 0,0,0,0,0, 0, 0, 0,0, 0, 0, 48, 0,0, 206 

DATA 0,3, 3,15, 252, 3,3, 3,3, 3,0, 206,0,0 
,48,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0 

DATA 6,0,0,0,0,0,0,0,0, 0,0, 0,0,0,99 

DATA 0,0,0,0,0,0, 0, 0, 192, 0,3, 48,0, 12,0 
,12,12,0, 48, 42,0,12,170,128 

DATA 3,153, 176, 0,170, 140,0, 42,3,0,12 
,12,0,12,0,3, 48,0, 0, 192,0,0,0, . 0,0,0 

DATA 0,0,9,0,0,0,0,0,0,0,0,0,99,0,8,0 
0,42, 0,0, 38, 0,0, 42,0, 0,8, 0, 2,170, 140 

DATA 2, 46, 32,2, 46, 32, 3,42, 48, 2, 21, 52 
52,42, 32,0, 42,0, 0, 34,0,0, 128, 128 

DATA 0,192,192, 0, 128, 128, 0, 128, 128,0 
»34,0,0, 34, 0,0, 162, 128, 2, 162, 160,99 

DATA 0,0,0,0,9, 92,0, 46,0, 0, 191, 128, 2 
, 110, 96, 194, 89, 96, 73, 89, 88, 73, 89, a8 

DATA 110,170, 174, 9, 89, 89, 2,89, 89, 2,89 
,97,0,174, 99,0, 191, 128,0,46,0 

DATA 0,8,9, s, 84,0,0, d, 0,0,0, 0,0,0,0,0,0,0, 99 

DATA O -0,0, 0,0,0,0,0,0,0,0, 16,0,0, 16,0 
0, 64,0, 1, 2,0, 4,8, 0, 1,8,0,4.2 

DATA 40,16, 130, 130, 154,34, 128,112,8,1 
,48, 0,4, 60,0, 16, 15, 192, 64,0,192 

DATA 16,0, 252, 4, 0,0, 16,0, 0, 64,0,0, 99 

DATA 24002400050405040504030403040004000 
40004000400041009 

DATA 100910091009050405040504050405150004000 
40004000410091009100410041009 

DATA 1009 

DATA 10091009100910091009100910091009000 
900090009000900090024 

DATA 00240024002405040504050405040504000 
900090009000900090504050405040024 

DATA 24002400100910091009100910091000 
10001000100010001009 
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12030 


12035 


12040 


12045 


12050 


12055 


12060 


12065 


12070 


12075 


12080 


12085 


12090 


12095 


12100 


12105 


12110 


12115 


12120 


DATA 1009100910091009100910091009100 
900000000000000000024 

DATA 24002400050405040504050405040504000 
4000400040004050405041009 

DATA 100910091009 1009 100910091009 1009 
10001000100010001009 

DATA 10091009050405040504050405040504000000 
0000000000030203020302035020024 

DATA 24002400240024002400240024002 
4000009000900090009 1009 

DATA 1009100910091009100910091009100 
9710001000100010000024 

DATA 2400240003020302030203020302030200000000 
000000000302030203021009 

DATA 1009100910091009100410041004 1004000 
4000400040004 10041004100410041009 

DATA 1009100910091009 100910091009 100900 
000000000000000024 

DATA 2400240024002 40005040504050405040000000 
00000000005040504050405040024 

DATA 24002400240024002400240024002400000 
7000900090009 1009 

DATA 1009100910091009 10091009100910091000 
1000100010000024 

DATA 2400240003020302030203020302030200000 
0000000000003020302030203021009 

DATA 1009100910091009100910091009100900 
000000000000000024 

DATA 240024000504050405040504050405040 
390005000500050005040504050405041009 

DATA 1009100910091009 1009 100910091009 
10001000100010001009 

DATA 1009100910091009050405040504050405 
0405040504050405040024 

DATA 24002400240024002400240024002400 
10001000100010001009 

DATA 100903020302030203020302 15020302030 
003000300030003020302030203020024 
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ISS=2233 
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185 =3526 
139=45@1 
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U.F.O. 


Another U.F.O. game with aliens attacking your craft. This one however 
contains a Machine Code routine to scroll the screen. 


Shoot down the attacking U.F.O.’s with one of your missiles. 
The game ends if you crash or if a U.F.O. gets past you. 
Your controls are: 

‘W" up 

‘x’ down 

‘S’ to fire 


185 


PROGRAM STRUCTURE 
INITIALIZE SPRITE 

PRINT GROUND 

MACHINE CODE ROUTINE 

GET CURRENT KEY 

IF NO UFO ON SCREEN GENERATE ONE 
IF CRASH — END 

IF UFO — MOVE UFO 

IF UFO HIT — GO DOWN 

IF UFO CRASH 

END 

IF KEY — ‘S’ FIRE 

IF SHELL FIRED — MOVE SHELL 

NEXT LOOP (GO TO 25) 

CLEAR SCREEN PRINT MESSAGE 
DATA 


VARIABLES 
CR = —1: NOUFO 
0: UFO 
1: UFO— HIT 
HI = HIGH SCORE 
SC = SCORE 
K = CURRENT KEY PRESSED 
Y = PLANE POSITION 
SH = SHELL FIRED OR NOT 
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LINES 


O—17 

20 

25 

30— 35 
40 — 55 
60 — 65 
70— 95 
100 

105 — 145 
150 

155 — 171 
175 — 190 
200 
1000 — 1030 


10000 — 10055 


U. F. O. 


0 POKE 55,255 + POKE 56,44 
1 FOR I = 0 TO 35 = READ A =: POKE 14 ¥* 1024 + I,A 
¢ NEXT 
2 IF PEEK ( 53270 ) AND 8 THEN POKE 53270, 
PEEK ( 53270 ) - 8 
3 FOR I = 0 TO 126 = READ A 
NEXT + V = 53248 = MC = 
4 FOR I = O TO 126 = READ A 
: NEXT 
6 FOR I = 0 TO 31 + 
¢ NEXT = HI = 0 
7 POKE V + 32,6 > POKE V + 33,6 
10 POKE V + 37,3 : P 
POKE V + 24,28 
15 POKE 2040,13 = POKE V + 39,5 + POKE V,100 =; 
POKE V + 1,100 + POKE V + 21,1 * POKE V + 28,1 
17 POKE 2041,14 + POKE V + 40,5 + CR=-1 3 
SH = — 1 + POKE 2042,240 + POKE V + 41,0 
20 PRINT “C2 © © © @) © 4 9 1 i ©) 4 © © 
Ce} fe) Ce} fe) (2) e) 2) (6) fe) 2) 9) fe} DABCCAADDBBACCCBADAC 
DABBCASCBBBCAD@ACCB" ; 
22 A = PEEK ( V + 30 ) 
25 SYS MC +: IF PEEK ( V + 22 ) = 199 THEN 
POKE 2022, RND ( 1) *& 4 
= PEEK ( KB ) 
= PEEK (V+1) ¢ 
Y=Y-2**¢(¢K=9)*¥(Y> 45) +4 
(K=2 


: POKE 932 + I,A =: 
14 *% 1024 = KB = 197 
¢ POKE 15 * 1024 + I,A 


READ A = POKE 12 * 1024 + T,A 


+ POKE 54296,15 
OKE V + 38,2 = SC =9Q = 


W 

o 

x 
| 


3) &€ CY < 234) 4 2 
36 IF Y > = 234 THEN 1000 
40 POKE V + 1,¥ = IF CR > — 1 THEN 60 
45 IF RND ( 1 ) > .1 THEN 150 
90 POKE V + 21, PEEK ( V + 21 ) OR 2 = 
POKE V + 2,80 = POKE V + 16, PEEK ( V + 16 ) 
OR 2 
95 POKE V + 3, INT ( RND ( 1) € 175 + 44) = 
CR = O 
60 F = 0 + A = PEEK ( V + 2) = 
B = PEEK ( V+ 16 ) AND2:=+ A=A- 2? 
IF A < O AND B THEN B= 0 + A = 254 > F = 1 
65 IF A < O AND CR = O THEN 1000 


67 IF A < O THEN CR = - 1 = GOTO 150 

7O POKE V + 2,A + POKE V + 16, PEEK ( V + 16 ) OR B 
+ IF F THEN POKE V + 16, PEEK ( V+ 16) - 2 

80 IF CR THEN 100 

85 A = PEEK ( V + 3 ) + INT ( RND (1) 43-1 ) 

* 3 >+ IF A < 44 THEN A = 44 

90 IF A > 235 THEN A = 255 

935 POKE V + 3,A = GOTO 150 

100 POKE ( V+ 3 ) , PEEK (V+3) +2 : 
IF PEEK ( V+ 3) < 235 THEN 150 

105 POKE V + 28,3 = POKE V + 40,8 = POKE 2041,7241 

110 POKE 54276,0 = POKE 54277,15 + POKE 54273,72 => 
POKE 34272,169 = POKE 54276,129 

115 FOR I = 1 TO 2000 = NEXT 
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140 POKE V + 21, PEEK ( V + 21 ) — 2 + POKE V + 28,1 


145 CR = - 1 = POKE V + 40,5 = POKE 2041,14 
150 A = PEEK ( V + 30 ) * IF A = 3 THEN 1000 
155 IF A = 6 AND CR = O THEN SH = - 132 CR = 1 + 


POKE V + 21, PEEK ( V + 21) — 4: 
A = PEEK ( V + 30) + SC = SC + 10 
160 IF K < > 13 THEN 175 
165 SH = 1 + POKE V + 21, PEEK ( V + 21 ) OR 4 
POKE V + 4, PEEK ( V ) + 10 = POKE V + 5, 
PEEK ( V +1) 
170 IF PEEK ( V + 16 ) AND 4 THEN POKE V + 14, 
PEEK (V +16) — 4 
171 POKE 54276,0 = POKE 54277,31 + POKE 54273,8 + 
POKE 54272,147 + POKE 54276,129 
175 IF SH < 1 THEN 200 
180 A = PEEK (V +4) + B = PEEK ( V + 16 ) AND 4 
*A=A+3 + IF A> 255 THENB=4: A=1 
185 IF A = @O AND B THEN POKE V + 21, 
PEEK ( V + 21) —-4 3+ GH=-1 3 
POKE 54273,0 + POKE 54272,0 + GOTO 200 
190 POKE V + 4,A = POKE V + 16, PEEK ( V + 16 ) 
OR B 
200 GOTO 25 
1000 POKE 2040,241 + POKE V + 39,8 + POKE 54273,72 : 
POKE 54272,169 = POKE 54277,47 
1001 POKE 54276,0 + POKE 54276,129 : 
FOR I = 1 TO 3000 ¢ NEXT + POKE 54273,0 : 
POKE 54272,0 
1005 POKE V + 24,20 + POKE V + 21,0 3 
POKE Vv + 22,200 + PRINT “J igYOU . SCORED"; SC 
s IF SC > HI THEN HI = SC 
1010 PRINT “HI . SCORE . IS"$HI ¢ PRINT “ (©) (6) fe}WANT 
4 ANOTHER , GAME?" 


1020 GET AS + IF AS = “Y" THEN 10 
1025 IF A® < > "N" THEN 1020 
1030 END 


10000 DATA 174, 22, 208, 202, 224, 191, 240, 4, 142, 22 
, 208, 96, 162, 199, 142, 22, 208 

10005 DATA 162, 0, 189,193, 7, 157, 192, 7, 232, 224 
» 40, 208, 245, 169, 32, 141, 231, 7, 96 

10010 DATA 0,0,0,0,0,0,0,0, 0, 0,0, 0, 128,0,0,128 
,0, 0, 224, 0,0, 232, 1,0, 234, 149, 64 

10015 DATA 170,170, 168, 63, 170, 255, 22, 149, 80, 10 
1160, 0, 42, 148, 0, 42,0,0,0,0,0,0,0,0 


10020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 
10025 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0, 0, 24, 0,0, 255, 0 
10030 DATA 7,255, 224,9, 36, 144, 15, 255, 240, 1 
, 255, 128,0, 126,0,0,0,0,0,0,0,0,0,0,0 
10035 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0, 0,0, 0,0,0,0,0,0,0,0,0 
10040 DATA 0,0,0,0,0,0,0,0, 194,0, 0,63, 128,0 
,194,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10042 DATA 0,0,0,0,99,0,0, 0,0, 12,0,0,63,0,0 
,59,0,0,59, 0, 252, 59, 0,59, 251, 240 
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10044 DATA 58,171, 176,14, 170, 255, 3,170,171 
,O, 250, 172, 0, 234, 240, 0,59,0,0,59,0 

10046 DATA 0, 238, 192,353,174, 192, 14,190, 192,14 
» 206, 192,59, 3,0,0,0,0,0,0,0 

10050 DATA 0,0,0,0,0, 98, 247, 255,0 
»0,0,4,14, 31,127, 255 

10055 DATA 0,0, 16, 24, 60, 124, 254 
,255,0,0,0,0, 4, 46, 127, 255 


CHEXSUM 
A=380 145-2852 
{=2 358 ia9=17397 
P=2477F {55-5940 
BH4238 1sO=1932 
S=c4d27 L6E5=4584 
G22945 17H=e7Ss 
e=2aa5 Ly ee 
iLA=2522 '7O=8S8 
Pc =4864 129=4333 
1Fy=2984 LaS=5041 
2G=5212 149=2189 
22 =895 FOR=473 
SS =P PTE 1@9O=3416 
TASES 1A@B1=32759 
Zr=4527 1@@5=5338 
Za=1165 {IM@1H=3339 
4R=1677 I9MeG@=1243 
$35=1111 1@25=1184 
=8=3828 LAsSH=129 
SS=2252 i:MAGA=2583 
E@=35498 1AHSS=323868 
65=1428 1fO18=4aas 
BY=1791 {MAtS=43g949 
7OA=4255 {M@2AQ=1532 
S@=818 180e5=4212 
S5=257 1 !:9O20=4126 
a8=i154 1HO25=386 1 
s5=1209 {AM4a=4F11 
L{fG=3a79 {@Hd2=3R812 
1A5=1325 19M44=2955 
L119=3378 {SAO4e=349e 
{i5=1026 iM@se=-ede4q 
14M=2182 1MBS5=2611 TOTAL= 136684 
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Galaxy Raid 


A fleet of aliens looms above you, one by one they dive to attack you with 
their guided missiles. 


You must avoid their missiles and destroy the alien ships. The main 
group is protected by a force field and only diving craft are vulnerable to 
your counter-fire. If you destroy the fleet another appears to replace it. 


Your controls are: 
‘Z’ for left 
‘C’ for right 
‘M’ to fire a missile 


190 


PROGRAM STRUCTURE 
INITIALIZATION 
PUT RAIDERS 


DISPLAY SCORE 

GET KEYBOARD CHARACTER 

MOVE ACCORDING TO KEY 

FIRE IF (SPACE BAR) PRESSED 

TEST IF PLAYER HIT 

TURN OFF SOUND 

MOVE PLAYER’S MISSILE UP SCREEN 


CHECK IF PLAYER’S AND RAIDER’S 
MISSILES COLLIDE 


UPDATE SCORE 

ELIMINATE PLAYER'S MISSILE IF PAST RANGE 
HOME RAIDER’S MISSILE TOWARD PLAYER 
PLAY MUSIC BETWEEN GAMES 

CHECK IF RAIDER’S MISSILE HIT PLAYER 
DATA 

VARIABLES 

S = SCORE 


SP = NUMBER OF RAIDERS LEFT 
SC = SCREEN REFERENCE POINT 


LINES 
0—9 

10, 612, 614, 
700 — 720 
500 

510 

520 — 530 
535, 900 — 905 
545 

546 

570 

571 


975 
580 
982 — 584 
800 — 850 


1000 — 1040 
9000 — 10070 


X1 = HORIZONTAL POSITION OF PLAYER'S MISSILE 


Y1 = VERTICAL POSITION OF PLAYER’S MISSILE 


PE = VALUE PEEKED FROM KEYBOARD 
P = HORIZONTAL POSITION OF PLAYER 
| = LEFT HAND END OF RAIDER FORMATION 
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GALAXY RAID 


O PRINT “EQ GaFGHIJK . 2. 4 ow «1 ow 64 GEPORST" =; 
POKE 353280,0 = POKE 53281,0 = V = 53248 


1 PRINT " 3 0 m@aMINO . L MB" + POKE V + 24,28 =: 
FOR I = 12288 TO 12463 = READ @ = POKE I,Q@ = 
NEXT 


2 FOR I = 12544 TO 12551 + POKE I,0 + NEXT 
3 POKE 54273,0 + FOR I = 12672 TO 12751 + READ Q@ ; 
POKE I,Q@ * NEXT 
4 POKE V + 21,7 + POKE 2040,208 +: POKE 2041,209 =; 
POKE V + 39,8 + POKE V + 40,7 = POKE 2042,210 
5 POKE V + 41,2 + FOR I = © TO 190 + READ Q =: 
POKE 13312 + I,@ + NEXT 
6 P= 120+ § = 0 + SP = 
SC = 1024 + POKE V,P + POKE V 
7 X = 5 + INT ( RND ( 1) & 20) + Y = 120 
X2 = X * Y2 = 160 
8 GOSUB 800 = POKE 54277,0 + POKE 54278,240 : 
? GOSUB 700 
¢ POKE V + 38,5 + 
PE = PEEK ( V + 31 ) 
8B + PRINT “ BS (el fed "5 
TAB( I - 1) 5C® + PRINT “ 69 fo] fe) fel"; TABC I ) 
20 GOSUB 500 
6O PRINT “ 69 fel fe} "3 TAB( I) 3B 
70 GOSUB 500 
75 NEXT 
100 IF SP > 1 THEN SP = SP - 1 
110 FOR I = 17 TO 1 STEP — 1 = PRINT “ £9 [el fl (e"; 
TAB( I + 1) 3C#% = PRINT " BS J fel ("3 TABC I >) 
7 AS 
120 GOSUB 500 
160 PRINT " 69 (eo) fe] fel"; TAB( I) 3B 
170 GOSUB 500 
180 NEXT 
190 GOTO 10 
900 PRINT “ 3 2B] B&B] 2] 2] &) ©] 2) &) BE) BP) 2) B) BP) 
EF) PF] &] BP) BP) BP) BE) "5 S5" me” 
502 IF SP < 2 THEN PRINT "" 
505 FOR J = 1 TO INT (¢ SP ) 
510 PE = PEEK ( 197 ) 


920 IF PE = 12 AND P > 35 THEN P = P - 4 
030 IF PE = 20 AND P < 320 THEN P = P + 4 
935 IF Yi = O AND PE = 36 THEN GOSUB 9700 


537 IF P > 255 THEN POKE V,P — 256 = POKE Vv + 14, 
PEEK ( V + 16) OR 1 + GOTO 545 

540 POKE V,P + POKE V + 16, PEEK ( V + 16) AND 254 

545 IF PEEK ( V + 31.) = 1 THEN 1000 

546 POKE 54273,0 

560 IF Y1 = O THEN 581 

570 Yi = Yl — & + POKE V + 3,Y1 

571 IF PEEK ( V + 31) < > 2 THEN 580 

572 POKE 54296,15 + POKE 54274,0 + POKE 54276,129 

573 IF PEEK ( V + 16 ) AND 2 THEN POKE V + 14, 
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PEEK ( V + 16 ) OR 4 + GOTO 575 
574 POKE V + 16, PEEK ( V + 16) AND 251 
575 POKE V + 4, PEEK ( V + 2) = POKE V + 5,Y1 + 
Yl =02 S5=5 + 30-Y/ 40 
576 POKE SC + X + Y,32 : POKE SC + X + Y + 1,32 + 
Y = 840 
578 FOR Z = 40 TO 1 STEP — .6 = POKE 54273,Z = NEXT 
+ POKE 54273,0 = POKE V + 4,0 = POKE V + 5,0 
580 IF Yl < 90 THEN Y1 = 0 =: POKE V + 2,0 : 
POKE V + 3,0 
581 POKE SC + X2 + Y2,32 
582 IF RND (1) < .1 THEN X2 = X2 + 
(x2 > (P-20)/78)- 
(x2 < (P-20)78) 
5Q83 Y2 = Y2 + 40 + IF Y2 > 940 THEN Y2 = Y + 40 : 
X2 = X 
S584 POKE CO + X2 + Y2,3 = POKE SC + X2 + Y2,21 
600 NEXT + DX = X + DY = Y 
601 IF DY < 680 OR RND ( 1) < .6 THEN DY = DY + 40 
602 IF DY < 360 AND DX > 20 AND DX < 38 THEN 
DX = DX + 1 
604 IF DY < 360 AND DX < 21 AND DX > 1 THEN 
| DX = DX - 1 
605 IF DY > 400 AND DX > 20 AND DX > 1 THEN 
DX = DX - 1 
606 IF DY > 400 AND DX < 21 AND DX < 38 THEN 
DX = DX + 1 
608 IF DY < 840 THEN 620 
609 AL = AL — 1 + IF AL = O THEN AL = & = DY = 120 
¢ DX = I + INT ( RND (1) %* 6) * 44 
SP = SP - 1 + GOSUB 700 
610 DX = INT ( RND (1) %*6) * 441 4 
IF MID® ¢ A$,DX,2 >) = "4. 4." THEN 610 
612 A1*% = LEFTS ( A$,DX —- 1) +". 4" + RIGHTS 
( AS,24 - DX —1) = A = Als 
614 Al*® = LEFT* ( BS,DX - 1) +“. J" + RIGHTS 
( BS,24 - DX — 1) = B® = Alt 
615 POKE 54296,5 = POKE 54276,0 + POKE 54276,17 =: 
POKE 54273,50 + FOR Z = 1 TO 100 = NEXT 
616 POKE 54273,0 
619 DY = 120 + DX = I + DX - 1 
620 POKE SC + Y + X,32 + POKE SC + Y + X + 1,32 
625 POKE SC + DY + DX,4 + POKE SC + DY + DX + 1,5 + 
POKE CO + DY + DX,4 + POKE CO + DY + DX + 1,4 
626 X = DX + Y = DY 
630 RETURN 
700 POKE 54296,8 = POKE 54276,0 + POKE 54276,33 
705 At = "9A. . PAL .AAL .AAL L.AAL LAL." 
BS = "BC. .BC. .BC..4BC, .BC,..BCL a 
7190 Cte = "4 » az » sy a a - - a - a a - > , yy di, 
712 FOR Z = 1 TO 20 + POKE 54273,Z + NEXT + 
POKE 54273,0 
720 RETURN 
800 POKE 54276,0 + POKE 54277,0 + POKE 54278,0 


802 POKE 54296,15 = POKE 54277,190 = POKE 54278,64 =: 
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9702 

905 
1000 
1005 
1007 
1010 
1020 
1030 
1032 
1035 
1040 
9000 
9010 
9020 
9030 
9040 
7050 
7060 
9070 
90735 
9080 
9090 


9095 
9100 


9110 


POKE 54276, 17 


FOR I = 1 TO 10 STEP .05 = POKE 54273,1 = NEXT 
FOR I = 1 TO 30 STEP .2 + POKE 54273,1 = NEXT 
FOR I = 50 TO 20 STEP —- .2 = POKE 54273,1 = 

NEXT 
FOR I = 80 TO 140 STEP 2.5 = POKE 54273,1 = 

NEXT 
FOR I = 200 TO SO STEP —- 3 + POKE 54273,1 = 

NEXT 
FOR I = 10 TO 40 STEP .2 = POKE 54273,1 = NEXT 
FOR I = 80 TO 140 STEP 2 = POKE 54273,1 = NEXT 
FOR I = 10 T0 1 STEP — .04 + POKE 54273,1 = NEXT 
FOR I = 1 TO 10 STEP .O5 = POKE 54273,1 = NEXT 
FOR I = 100 TO 70 STEP —- 2 = POKE 54273,1 = NEXT 
POKE 54273,0 = RETURN 


POKE 54296,10 + POKE 54276,0 + POKE 54276,129 
IF P > 255 THEN POKE V + 2,P — 256 : 

POKE V + 16, PEEK ( V + 16) OR 2 = GOTO 905 
POKE V + 2,P = POKE V + 16, PEEK ( V + 16 ) 

AND 253 
Y1 = 180 = FOR Z = 1 TO 30 STEP 2 ; 

POKE 54273,Z + NEXT + RETURN 
POKE V,0 = POKE V + 1,0 + POKE V + 2,0 ; 

POKE V + 3,0 + POKE V + 5,200 
IF P > 255 THEN POKE V + 4,P — 256 = 

POKE V + 16, PEEK ( V + 16) OR 4 += GOTO 1010 
POKE V + 4,P + POKE V + 16, PEEK ( V + 16 ) 

AND 251 
POKE 54296,15 + POKE 54276,0 = POKE 54276,129 


FOR I = 1 TO 100 = POKE 54273,1 = NEXT 
FOR I = 100 TO 50 STEP —- 2 = POKE 5S4273,1 = NEXT 
FOR I = 80 TO 1 STEP — .4 = POKE 54273,1 = 


NEXT + POKE 54273,0 
POKE V + 4,0 = POKE V + 5,0 = POKE V + 29,0 
RUN 
DATA 96,125, 31,15,2,1,0,0,3, 31,124, 248 
, 160, 192, 128,128 
DATA 0,0,127,31,6,1,0,0,0,0, 127 
» 252, 176, 192, 128, 128 
DATA 28,14,7,3,2,1,0,0, 28, 56, 112 
» 224, 160,192, 128,128 
DATA 255, 192, 192, 192, 207, 195, 195, 255, 255 
,0,12,12,51,63,51,51 
DATA 0,0, 48, 48, 49, 48, 48, 63,0,0, 12, 12,51,635,51,51 
DATA 0,0,51,51,12,12,51,51,0 
DATA 0,0,51,51, 27, 27,12, 12,12, 48, 48, 96, 96, 192,90 
DATA 0,0,60,51,51,60,54,51,0,0, 63, 12,12,12,12,63 
DATA 0,0,60,51,51,51,51,60 
DATA 0, 243,195, 195, 243, 51,51, 243, 0, 207 
,12,12,12,12,12, 207 
DATA QO, 207, 204, 204, 207, 204, 204, 204, 0, 15, 204 
, 204, 15, 204, 204, 207 
DATA 0,0, 48, 0,0, 48, 0,0, 0, 24, 126, 60, 24, 24, 24, 24 
DATA 0,120,126, 102, 102, 102, 126,0,0, 24 
, 120, 24, 28, 28, 126,0 
DATA 0,126, 4, 24, 94, 102, 126,0,0 
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9120 


9130 


9140 


19000 


10010 


10020 
10030 


10040 


10050 


10060 


10070 


, 30, 126, 6, 62,6, 126,0 

DATA ©, 96, 108, 108, 126, 28, 28,0,0 
514,126, 96, 24,6, 126,0 

DATA 0,126, 112, 126, 102, 102, 126,0,0,126 
, 102,12, 24, 48, 48,0 

DATA 0,126, 102, 24, 102, 102, 126,0,0,126 
, 102, 1027, 126,14,14,0 

DATA 0,12,0,0,30,0,9,63,0,0,63,0,0, 63,0 
,0,635,0,0, 30,0,0, 12,0,0, 30,0,0, 63,0 

DATA 8,255, 196,9, 255, 228, 9, 255, 228, 11 
,127,180,15,127, 188, 14,63, 26,12,12,12 

DATA 8,30, 4,0,63,0,0,63,0,0,0,0,99 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0, 12,0,0, 12,0,0, 30,0,0, 30,0,0 
,12,0,0,12,0,0, 30,0, 0, 63,0,0, 109,128 

DATA 99,0,0,0,0,8, 0, 2,8,8,0,8, 32,0, 42, 128,0 
,174, 160, 2, 239, 128, 42, 255, 140 

DATA 11,255, 224, 2, 255, 224, 2, 255, 128, 2,190 
,0,8, 186, 128, 0, 184, 32,0, 40,0 

DATA 0, 32,0, 32, 32,0,0,0, 128, 2,0, 2,0,0,0,0,0,0 


CHEXSUM 


9=3689 595=1953 GA1=P4ase 
t=4141 51M=796 St2=P9a1 
2=17E8 529=1944 24-2932 
B=e7R2 SeO=1992 EQi=2828 
4=4129 S25=1654 EAS =P297 
BePge9 S27 =2742 cos=1988 
b=4473 =S49=2040 EO9=5634 
"sRS47 545-1456 €1a=3418 
3=PO41 SAS s528 SiS=3614 
A=2471 SES=25 1 6i4=3614 
1m=2982 S7PH=1443 &15=2699 
eA=299 e71=1582 61e=52e 
eo=846 S7t=1386 B19=1559 
ra=2ag 57e=2412 FEB=2342 
7o=151 S?P4si572 62555514 
1ag=14986 S7s=3624 B=6=926 
119=3464 S7@=2e855 E30=142 
{129239 HSTe=diat FA= 1827 
1E.A=B46 SBeA=2447 YasS=4304 
{7A=2949 Set=s1112 Fig=1549 
128=131 522-4125 Fiz=e213 
1aAh=472 SEB=2856 feB=143 
S@QQ=1461 S34s2275 200=1765 
SA2=954 FAR=1134 QEE=2718 
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hoo TO Po Oy ee om Fm TO ee me TO TO Td ee ee 


SA5= 1920 

S1e=18681 

S15=2075 

22R=20%1 

eP5=2094 

25M=1912 
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q7=1928 
S45=2094 
S5OH=7eo9 
S2AaBH=1962 
SAT= 
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{ARA=2h 
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Invaders 


Battle the invaders with your base on the ground. The arcade classic 
should have you addicted in no time at all. 


Controls are: ‘Z’ left, ‘C’ right and ‘M’ to fire. 
This program contains a large amount of machine code to control the 
invaders. Even if you don’t as yet fully understand what is being done, 


don’t worry. Just key the lines in carefully — especially the data lines. 
Check them thoroughly before trying to play the game. 
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PROGRAM STRUCTURE LINES 


INITIALIZE O—2 

ALTER MEMORY LIMIT 5 

TEST IF ‘Z’ OR ‘C’ KEY PRESSED 100 

MOVE LEFT/RIGHT 105 — 115 

FIRE SHELL/SOUND/MOVE 200 

SHELL HIT ANYTHING? 210 

MOVE INVADERS 300 

COLLISION WITH BARRIERS 315 — 325 

MOVE BOMBS FROM ALIENS 500 

CALL TO MACHINE CODE ROUTINE TO 1100 
MANIPULATE INVADERS 

INVADERS’ SOUND 1110 — 1115 

END OF GAME? 1118 

PRINT SCORE 1125 

VARIABLES 

V = START ADDRESS OF VIDEO CHIP 

SC = SCORE 


X, Y = COORDINATES OF BLASTER 

K = CONTAINS KEY PRESSED ON KEYBOARD 

P = CONTAINS THE CHARACTER ON THE SCREEN THAT THE 
SHELL HAS MADE CONTACT WITH (32 = SPACE) 

SX = X COORDINATE OF SHELL 

SY = Y COORDINATE OF SHELL 

| = TEMPORARY VARIABLE 

S(J) — ARRAY CONTAINING POSITIONS (6) OF ALIENS 
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INVADERS 


OV = 33248 = POKE 54276,0 = POKE 54290,0 : 
POKE 54278, 240 = POKE 54292,740 =: 
POKE 54276,129 
1 POKE 54290,17 = POKE V + 33,0 + POKE V + 32,0 = 
SC = 1024 + CL = 535296 = CO = 54272 :- 
POKE 54296,15 
9 POKE 56,28 = POKE 55,0 + FOR I = 12544 TO 12551 
> POKE I,QO + NEXT 
10 GOSUB 8000 + GOSUB 8060 + GOTO 1000 
99 IF K = 1 THEN 99 
100 IF K < > 12 AND K < > 20 THEN 150 
105 POKE SC + Y * 40 + X,32 = X =X - (K = 12) & 
(X>QO) + (KK = 20) &€ (CX << BY) = 
IF PEEK ( SC + Y ® 40 + X ) < > 32 THEN D=1 
110 POKE CL + Y * 40 + X,3 + POKE SC + Y ® 40 + X,0O 
115 RETURN 
150 IF K = 36 AND SX < O THEN SX = X + SY = Y-1 ¢ 
POKE 54273,72 + POKE 54272,149 
155 RETURN 
200 POKE SC + SY * 40 + SX,32 SY = SY - 1 
IF SY < 1 THEN SX = ~- 1 = RETURN 
205 P = PEEK ( SC + SY * 40 + SX ) 
210 POKE CL + SY * 40 + SX,7 = POKE SC + SY * 40 
+ SX,2 + IF P = 32 THEN RETURN 
215 POKE 54273,34 = POKE 54272,75 «+ POKE SC + SY ®& 
40 + SX,4 
220 IF P < > 1 THEN 250 
2259 FOR Yi = 8 TO O STEP - 2 = 
FOR Xi = 10 TO O STEP - 2 =: 
P = IN + Y1 * & + Xi 
230 IF PEEK ( P ) < > SY OR PEEK ( P + 1) < > SX 
THEN 245 
235 S =SG+¢(12- Yl) *® 5 
POKE P + 1,255 = X1 = 
245 NEXT + NEXT = GOTO 275 
200 IF P < > 3 THEN 275 
255 FOR J = 0 70 5 + IF S§ ( J ) = SC + SY ¥® 40 + &X 
THEN SG = S+5+ &§ (J) =O # J = 


a> 
a> 


oO - Y1 =0 


3 
260 NEXT 
275 POKE SC + SY * 40 + SX,32 = SX = — 1 += RETURN 
SOO POKE S (J) ,32 > S (J?) =S €( J) + 40 = 
IF S§ ¢( J >) > 1983 THEN S ( J) = GO = RETURN 


305 P = PEEK (S (J) ) ¢ POKES (J) + CO,3 + 
POKE S (J) ,3 

310 IF P = 32 THEN RETURN 

315 POKE S ( J) ,4 = POKE 54273,43 + POKE 54272,52 


> IF P = 0 THEN D = 1 
320 IF GS ( J ) = SC + SX + SY * 40 THEN SX = - 1 
325 POKE S ¢€( J) 4,32 - S&S ( J ) = 9 = RETURN 
50Q Sit = INT ( RND ( 1) % 6) = IF S ¢ &1) > 0 


THEN RETURN 
505 FOR Y1 = 8 TO O STEP —- 2 =: IF PEEK 

( IN + Y1 * & + S1 ® 2+ 1°) = 255 THEN 550 
910 § ¢ S1 ) = SC + ( PEEK 
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40 


( IN + Y1 *& 6 + S1 *® 2 * + 
x 2 Y1 = 90 


( IN+ Y1 * 6 + §1 
NEXT = RETURN 
D = 0 : FOR I = 1 TO SP =: K = PEEK ( PE ) = 
IF K < > 64 THEN GOSUB 99 
IF SX > = O THEN GOSUB 200 
FOR J =0 705 +: IF S ( J >) > O THEN GOSUB 300 
NEXT = POKE 54273,0 > POKE 54272,0 : 
POKE 54287,0 + POKE 54286,0 
IF RND ( 1) > .5 THEN GOSUB 500 
NEXT = SYS 7168 = IF NO < 21 THEN SF = 3 =: 
IF NO < 11 THEN SP = 2 + IF NO < 6 THEN SP = 1 
POKE 54287,2 + POKE 54286,37 + IF 
PEEK ( 12303 ) = 36 THEN POKE 12303,129 : 
GOTO 1104 
POKE 12303, 36 
IF PEEK ( 7604 ) = 0 AND D = O AND NO > O 
THEN 1000 
IF NO = O THEN GOSUB 8050 + GOTO 1000 
POKE SC + Y * 40 + X,4 + POKE 54273,61 : 
POKE 54272,126 
FOR I = 15 TO O STEP — .1 + POKE 54296,1 + NEXT 
: POKE 54287,0 = POKE 54286,0 : 
POKE SC + Y * 40 + X,a 
POKE 54273,0 = POKE 54272,0 
IF PEEK ( 7604 ) = O THEN B = B + 1 : 
IF B < 4 THEN POKE 54296,15 + GOTO 1000 
POKE V + 24,20 = PRINT “ £3 (eo) (ed (0 (el fe) (eo (0 fel 
OBOEGEQEGHORQEQEOEGCEOEGEOEGHOEGE. 
a a kk kk kk kk ko KEGAME . OVER ER" 
PRINT “(1YOU . SCORED"S + RUN 
FOR AD = 7168 TO 7393 
READ A + POKE AD,A = NEXT 
FOR AD = 12288 TO 12351 + READ A = POKE AD,A =: 
NEXT 
POKE V + 24,28 
FOR Y1 = 0 TO 4: FOR X1 = 0 T0 5: 
POKE 7620 + Y1 * 12 + X1 *& 2,Y1 * 2+ 1 = 
POKE 7621 + Y1 * 12 + X1 & 2,X1 *% 
NEXT = NEXT 


> + 1) 
+ 1) 


a 


POKE 7605,1 += POKE 7604,0 = SX =- 1 7 SY =90 =: 
NO = 30 = SP = 4 = RETURN 
B= 1 = PRINT "£2" = FOR I = 1984 TO 2023 


POKE 1,5 = POKE I + CO,6 = NEXT = X = 1% Y = 23 
+ PE = 197 + S=0 

IN = 7620 + DIM S (5 ) + POKE CL + Y & 40 + X,3 
+ POKE SC + Y * 40 + X,0 

FOR Y1 = 1 TO 4 + PRINT “ ES 63 le 
© fe) ee) ed Oe fe) 0 fe te fe" SPCC ¥1 #4 10 —- 7 ) 
“EEE (0) 98 GE GREEE ©) §8 88 @REEE; 

PRINT " (9 §8 @8 @8F 2. G"5 

NEXT = RETURN 

DATA 162,7, 142,179, 29, 162,0, 142, 190, 29 
, 189, 197, 29, 201, 255, 240, 56, 141,177, 29 

DATA 189, 196, 29,141,176, 29, 169, 32,141 
, 178, 29, 32, 162, 28, 189, 197, 29, 24, 109 


200 


9055 


DATA 181,29, 157, 197, 29, 201, 0, 208, 5, 140, 1 
, 140, 180, 29, 201, 39, 208,5, 160,1,140 

DATA 180, 29,141,177, 29,149, 1,141, 178, 29 
, 32, 162, 28, 232, 232, 224, 60, 208, 187 

DATA 173, 180,29, 208, 1,96, 169, 0, 141,190,2 
, 169, 32, 141, 178, 29, 162, 0, 189 

DATA 197,29, 201, 255, 240, 27, 141,177, 29, 189 
5196, 29, 141,176, 29, 32, 142, 28, 254 

DATA 196, 29, 189, 194, 29, 201, 22, 208, 5, 160 
31,140, 180, 29, 232, 232, 224, 60, 208 

DATA 216,173, 181, 29,201, 1, 240,4 
11469, 1,208, 2, 169, 255 

DATA 141,181, 29, 173, 180, 29, 208, 3, 74, 0, 28, 96 

DATA 138, 72, 152, 72, 172,176, 29, 169, 0,133, 31 
3169, 4,133, 32, 162,0, 24,169 

DATA 40, 109, 31,0, 133, 31, 169, 0, 109, 32,9, 
133,32, 232, 236, 176, 29 

DATA 208, 235, 172,177, 29,173, 178, 29, 145, 31 
524, 169, 212, 109, 32,090,133 

DATA 32,173, 179, 29, 145, 31, 104, 168, 104 
, 170, 96,0, 16, 16,56, 124 

DATA 124, 254, 254, 126, 90, 255, 189, 189, 36 
, 66, 36,0,0,0, 16, 16, 16, 56,84, 0,84, 56 

DATA 16,56, 56, 16,0, 108, 213 
,128, 132,39, 174,197,798 


9060 DATA 255, 255, 255, 255, 255, 255, 255, 255, 255 


, 254, 252, 248, 240, 224, 192,128 


9065 DATA 255,127,638, 31,15,7,3,1 


CHEXSUM 
@=4922 245=934 182a=1268 
i=4890 250=992 11@@=4497 
S=2723 255=4336 1191=3928 
18@=1447 FEG=131 11@2=585 
a9=739 275=2348 1194=23980 
1@B=1772 309@=2553 11@5=1729 
1Q5=72E5 205-2384 1119=2645 
114=2596 31a-s20 1115-4791 
115=143 215-2902 1117=1167 
15-2927 220=2512 1118=3651 
i55=142 SE5=1345 112@=3974 
2aa-=4aat 590=2283 1125=1348 
265-1738 5@5=39198 sana=1easg 
21M=R2982 Sia=s67e 8@05=868 
21ih=284e S5A=232 S@10=2246 
22A=3974 19AQ=3269 e@15=672 
225-3904 i@a5=1215 fO5@8=6147 
2tA=2757 imia=1844 3052=320 
2235-23854 1915=2562 FO@55=3487 
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S@60=1839 
S065=2103 
S@7Q=37536 
B8@75=4923 
Sr 7=478 


9445-23118 
SO58=4256 
3@S55=2513 


TOTAL= 218938 
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APPENDIX A 


The purpose of this appendix is to provide you with information beyond 
just the program listings and stuctures. 


The information presented here is an extract from our own programmers’ 
notes. 


Before we publish any games our programmers go through the programs 
in detail and in doing so come up with hints, tips and general information 
which would be useful to the programmer. 


Be sure to progressively SAVE the programs onto cassette as you enter 
the listings. From time to time, the keyboard may ‘lock up’, expecially if 
you try to RUN a program that contains an error. We strongly recommend 
that you keep SAVEing copies of the program as you enter it into the 
computer and ‘debug’ any typing errors. 


We also appreciate that some people like to ‘customise’ some of the 
games by enhancing them or changing them in some way. Anticipating 
this we have also suggested some changes you might like to make. 


You will note that some of the programs contain machine code language 
subroutines. These are required to achieve effects that would be too slow 
in BASIC. 


Don't worry if you are not familiar with machine language — the 
programs include all the instructions to initialize the machine language 
subroutine and to implement it. You must be especially careful with the 
DATA statments in these programs. Be sure to SAVE a copy of the 
program onto cassette before trying to RUN a program that contains 
machine language subroutines. 


In Appendix D, we show the subroutines that make up the machine 
language subroutine in the program “U.F.O.”. This subroutine scrolls the 
landscape at the bottom of the screen. 


If there are any novices among you we have given a very detailed 
breakdown of “Start Pilot” under “Program Structure”. You will be able to 
follow the program step-by-step and understand all it does. 

A sprite generator with which to create sprites for your own games has 
been added. Use this to create good games to send to us for publishing 
together with the card in the back. 


The true arcade games addict has been catered for with instructions on 
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how to convert the programs so that they are joystick compatable (in 
Appendix B). 


All in all we feel that, whatever your purpose in purchasing this book, we 
have provided you with enough material to make your purchase more 
than worthwhile. 


GENERAL HINTS 


If you encounter difficulty trying to SAVE a program while in colour mode, 
hit RUN/STOP and RESTORE. 


To get a completely black background and border : POKE 53280, 0 
(border) 

POKE 53281, 0 (background) 

and CTRL 8 for white characters 


If you crash the program during graphics mode and you can’t read the 
line number in which you crashed, then type: 
POKE 53272, 21 : POKE 53265, 155 


If you type in a line that is exactly 2 screen lines long and can’t get it 
accepted, use the cursor keys to move the cursor back into the line (at 
least one cursor left movement) and then save the line. If it still doesn’t 
save, you have probably added redundant spaces or an extra character. 


Some games use the space bar and others the ‘M’ key for firing. If you 
prefer one or the other you can alter as follows: 

PEEK 197 checks last key pressed (returns an ASCII value) 

When testing the value of last key pressed : ‘M’ = 36 and ‘space bar’ = 60 


If you find that some games, that you know are correct, just don’t work 
properly, try resetting and loading. We have found that previous games 
can sometimes corrupt pointers. 


HINTS FOR SPECIFIC GAMES 


PARANOID 
This game takes about 30 seconds to initialize so don’t assume you’ve 
made an error somewhere, just wait. 


TURKEY 

To speed up movement of the turkey change line 60 to read: 
Y1=Y1+2*YD:X1=X1+2*XD 

To speed up the waiter change lines 26 and 32 to P = P —- 3andP =P + 
3 respectively. 
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HIGHER OR LOWER 
Use the card selector and drawing routines as a basis for other card 
games. 


FLIGHT SIMULATOR 

To increase the rate of fuel consumption, and so force a faster landing 
and a time limit, decrease the 3200 in line 110. (A value of about 1500 
seems to work well.) 


SLALOM 

To make the game more difficult, and thus more challenging, change line 
30 to: 30 IF RND(1) < 1 etc. 

This decreases the distance between flags and increases the number of 
trees. You could write a routine to incorporate different skill levels. 


COWBOY SHOOTOUT 
To change background and border colours change the viaues POKEd 
into (V + 33) and *V + 32) inline 15. 


DARK STAR 

We encountered some problems loading Dark Star from cassette, 
presumably because of its length, if it happens just persevere. You might 
also like to change the sound on your shots to something more gutsy. 


MARTIAN INVASION 

Those of you who are observant will notice that at times a tripod will blow 
up before your bullet hits him — this is caused by a collision with the high 
X — bit. 


UFO 
To increase the speed of the game you can speed up the moving objects 
by making the following changes. 


Line 35: To increase craft speed increase the value 2 in 
Y=Y-—2 and also the 2 at the very end of the line 


Line 60: To increase UFO speed increase the value subtracted 
from Ain A=A-—2 


Line 180: To increase bullet speed increase the value added 
to Ain A=A+3 


The UFO will not crash into the sea but should you desire it to do so just 
remove line 90. 
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APPENDIX B 


TO CONVERT KEYBOARD GAMES TO JOYSTICK GAMES 


— plug joystick into control port 1. 


Where in the game you see PEEK (197) or a variable has been assigned 
to the value 197 (e.g. KB or PE in some cases) and you see PEEK 
(variable) then change the 197 to 56321. Using the above you would 
have PEEK (56321) or KB = 56321 or K = PEEK (56321). 


The next step is to replace key tests with joystick value tests. Using the 
table below change the key tests as shown. 


IF PE = “Fire key value” IF PE AND 16 = 0 
IF PE = “Up key value” IFPEAND 1=0 
IF PE = “Down key value” IFPEAND 2=0 
IF PE = “Left key value” IFPEAND 4=0 
IF PE = “Right key value” IFPEAND 8=0 


If you don’t know the code values for keys and therefore don’t know 
which key a value represents then run this little routine: 
10 PRINT PEEK (197) ;: GOTO 10 


RUN it and press the keys used in a game. The values for the keys will 
appear on the screen. Just relate these values according to the function 
of the key they represent to the joystick test values in the table. 

e.g. North Sea Copter 

40 PE = PEEK (56321) 


45 IF PE AND 8 ANDF > 0 THEN X = X+ 2:F=F-.1 
etc. 
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APPENDIX C 


SPRITE GENERATOR Copyright (c) 1983 Beam Software 


This program provides a fast and simple means for creating your own 
sprites. 


The program provides a 24 x 21 grid on the screen on which to draw your 
sprites, the relevant key to be pressed being listed on the screen. 


The real size sprite is shown on the screen, as well as the expanded 
(double resolution) sprite. 


Keys uSed are: 

A = MOVE CURSOR LEFT 

D = MOVE CURSOR RIGHT 

W = MOVE CURSOR UP 

X = MOVE CURSOR DOWN 

S = PLOT POINT ON GRID 

SPACE BAR = ERASE POINT ON GRID 

SHIFT CLR = CLEAR ENTIRE GRID 

RETURN = CLEAR SCREEN AND PRINT OUT DATA 


When return is pressed the sprite data is printed out, this may then be 
used in your own programs as follows: 


10 V = 53248 : REM START OF DISPLAY CHIP 
20 POKE V + 21, 1: REM ENABLE SPRITE 0 
30 POKE 2040, 13 : REM SPRITE DATA POINTER 
40 POKE V + 39, 4: REM COLOUR OF SPRITE 
50 FOR | = 0 TO 62 : READ A: POKE 832 + I, A: NEXT : REM 
SPRITE DATA STORED HERE (13 * 64) 
60 FOR X = 0 TO 200 REM MOVE SPRITE (EXAMPLE) 
70 POKE V, X REM UPDATE X COORDINATE 
80 POKE V + 1, X REM UPDATE Y COORDINATE 
90 NEXT X 
100 GOTO 60 
200 REM DATA STATEMENTS WOULD FOLLOW 


This program sets up the sprite and moves it accross the screen. 
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SPRITE GENERATOR Copyright (c) 1983 Beam Software 


1 SC = 1024 
2 POKE 649,0 
10 PRINT “ fQ" 


11 FOR I =o0 TO 77: O¢€( FJ -~-T1?)? = 2 m I * NEXT 
12 FOR I =O TO77? AC 1) = 255 - 0 ¢€ I) * NEXT 
15 POKE 53281,6 = POKE 53280,6 


20 GOSUB 2000 
60 FOR I = 55296 TO 56319 + 
100 POKE 209,25 + POKE 210,4 
110 PRINT "@§SPACE . . . 4 TIERASE" 
120 POKE 209,465 + PRINT “@S.. 4 «2 «1 «2 «a « @SPLOT” 
130 POKE 209,105 + PRINT "@8A. 2. 2. 4 4 «4 «2 « MALEFT" 
140 POKE 209,145 + PRINT 
7 #4 D - - - - a a «- za as RIGHT" 
150 POKE 209,185 + PRINT "“@™#W. 2. 2. 2. 4 a4 a a WUP" 
160 POKE 209,225 = PRINT “8X. 4. 2. 4 a2 «2 «2 « GADOWN" 
170 POKE 209,9 + POKE 210,5 + PRINT 
“ @ESHFT . CLR . @aCLEAR" 
180 POKE 209,49 + PRINT " @BRETURN . 1 . @aDATA" 
200 SO = 832 + POKE 27040,1% + POKE 53287,8 
201 POKE 2041,13 + POKE 53288,4 + POKE 53250,11 + 
POKE 53251,190 
205 GOSUB 3000 
210 POKE 53248, 24 
220 POKE 53249,135 
225 POKE 53264,3 
230 POKE 53269,3 
240 POKE 53271,2 ¢* POKE 53277,2 
300 CX = 0+ CY =0 
500 FOR I = 0 Ta 5 
= 1 TO 20 + NEXT 
O THEN POKE SC + CX + CY *# 40, 
PEEK ( SC + CX + CY * 40) OR 128 
3 THEN POKE SC + CX + CY * 40, 
PEEK ( SC + CX + CY * 40 ) AND 127 


POKE I,0 = NEXT 


a & 


940 IF K = 10 THEN 5000 
950 IF K = 18 THEN 5100 
960 IF K = 13 THEN 5200 
070 IF K = 9 THEN 5300 
580 IF K = 23 THEN 5400 
990 IF K = 60 THEN 5500 
600 IF K = 51 THEN 5600 
610 IF K = 1 THEN 7000 
7OO NEXT I 


800 GOTO 500 

1000 GOTO 1000 

2000 FOR I = 0 TO 20 

2010 FOR J = O TO 23 

2020 POKE SC + I *¥ 40 + J,43 

2030 NEXT J = NEXT I 

2040 RETURN 

3000 FOR I = O TO 62 = POKE 50 + 1,0 = NEXT = RETURN 
5000 IF CX = 0 THEN 700 


208 


5010 POKE SC + CX + CY & 40, 
PEEK ( SC + CX + CY ¥ 40 ) AND 127 
5020 CX = CX — 1 + GOTO 700 
5100 IF CX = 23 THEN 700 
5110 POKE SC + CX + CY ¥ 40, 
PEEK ( SC + CX + CY * 40 ) AND 127 
5120 CX = CX + 1 * GOTO 700 
5200 POKE SC + CX + CY ¥# 40,81 
5210 TP = SO + CY * 3 + INT ( CX / 8) 
5220 POKE TP, PEEK ( TP ) OR 
O ( CX — 8 * INT (CX 7/8) ) 
5230 GOTO 700 
5300 IF CY = 0 THEN 700 
5310 POKE SC + CX + CY * 40, 
PEEK ¢( SC + CX + CY # 40 ) AND 127 
5320 CY = CY - 1 + GOTO 700 
5400 IF CY = 20 THEN 700 
5410 POKE SC + CX + CY & 40, 
PEEK ( SC + CX + CY * 40 ) AND 127 
5420 CY = CY + 1 + GOTO 700 
5500 POKE SC + CX + CY * 40,43 
5510 TP = SO + 3 * CY + INT ( CX / 8) + 
POKE TP, PEEK ( TP ) AND 
A «(CX — 8 ® INT (CX /8)) 
5520 GOTO 700 
5600 GOSUB 2000 
5610 GOSUB 3000 + GOTO 700 
7000 PRINT "mt" 
7010 FOR I = 0 TO 62 + PRINT PEEK ( SQ +1) 3; 
7020 IF I < > 62 THEN PRINT ","3 
7030 NEXT I 
7040 END 
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CHEXSUM {AAAH=579 
1=544 PAGBRM=7AG 
2P=42a 2A1H=7aR 

16=372 PAPM=1252 
11=1931 PA3BZR=475 
12=2e61 Pe4=142 
15=1183 RARMA=185e 
eM=R24?7 SAAA=867 
5A=1782 SAUM=3217 
iMAA=968 5@PM=124g 
11@=154e 51Aamg=924 
129=1948 Hiie@=3e17 
130H=PaA9g 5i2A=1348 
1948-2031 =COM=1446 
12951833 SP19=1936 
1S@=2918 SPPA=P517 
i7fTS=2P766 RO2A=-5Pg9 
1S@6=P148 S=PA=SE67 
PAM=1718 SR1A=2P17 
2PA1=2539g S320=1350 
2O5=348 S4AM=932 
Pig=592 S410=3217 
PPEA=6523 S42a=1249 
P2F5=526 55e8@@=1446 
228=535 5519=4642 
248=117a 5520@=529 
3HO=86A SE6AR=347 
SAA=655 5S10=969 
SA5=1AA7 FABA=372 
Sia=29829 7e1ig=1699 
52A=3824 7@20=11938 
BaA=7A4 7ASa=2AE 
=49=892 7Te4e=129 
S50=9a1 
S60=896 TOTaL= 9382ee7 
570=844 
589=8993 
5oqAM=eas 
eSan=89R8 
6 1@=826 
FAM=2AG 
2eeA=529 
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APPENDIX D 


ASSEMBLY LANGUAGE ROUTINE FROM U.F.QO. 


FINE SCROLLS SCREEN BY USING FINE SCROLL X 
REGISTER. 
BY 8 THE ENTIRE BOTTOM LINE IS COARSE SCROLLED. 


3800 
3803 
3B04 


S806 
35808 
380B 
380C 
S80E 
3811 
S813 
3816 
3819 
381A 
S81C 
SBIE 


35820 
38235 


LDX 
DEX 
CPX 


REQ 
STX 
RTS 
tDXxX 
STX 
LDx 
LDA 
STA 
INX 
CPX 
BNE 
LDA 


STA 
RTS 


WHEN THIS REGISTER HAS BEEN DECREMENTED 


D016 5 READ SCROLL REGISTER 
3 DECREMENT THE VALUE 
#191 3; IF DECREMENTED BY 8 
( 1 CHARACTER ) 
$380C 5 THEN GOTO COARSE SCROLL SCREEN 
$D016 


; RETURN 
#199 
$D016 5;RESET SCROLL REGISTER 
#O 3; SCROLL BOTTOM LINE OF SCREEN 
$7C1,X 
$7C0, X 
#40 
$3813 : 
#32  3STORE NEW CHARACTER AT RIGHT 


EDGE OF LINE 
$7E7 


3 RETURN 
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COMMODORE 64 GAMES BOOK 


REGISTRATION CARD 


Please fill out this page and return it promptly in order that we may keep 
you informed of new software and special offers that arise. Simply cut 
along the dotted line and return it to the correct address selected from 
those overleaf. 


Where did you learn of this product? 

[ | Magazine. If so, which one? ...................02000 000 eee 
[_} Through a friend. 

("] Saw it in a Retail Store 
{ ] Other. Please specify ....................00.0 002000000 ee, 
Which Magazines do you purchase? 

PACQUIAGIY: > wi oe urate, end A arena a a Oe eo, ee ee et sh 


OCCASSION ANY tro kek urcien bh re nba Fae ae denen eatsaw aks 


What age are you? 

[ ]} 10-15 [ | 16-19 [_ ] 20-24 [_] Over 25 
We are continually writing new material and would appreciate receiving 
your comments on our product. 


How would you rate this book? 


Excellent (_] Value for money 
Good [] Priced right 
{ ] Poor ~ (] Overpriced 


Please tell us what software you would like to see produced for your 
COMMODORE 64 


Name 
Address 


ao CO 


PUT THIS IN A STAMPED ENVELOPE AND SEND TO: 
In the United States of America return page to: 
Melbourne House Software Inc., 347 Reedwood Drive, 
Nashville TN 37217. 


In the United Kingdom return page to: 

Melbourne House (Publishers) Ltd., Melbourne House, Church Yard, 
Tring, Hertfordshire, HP23 5LU 

In Australia & New Zealand return page to: 

Melbourne House (Australia) Pty. Ltd., Suite 4, 75 Palmerston Crescent, 
South Melbourne, Victoria, 3205. 


ill 
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Melbourne House P 


The best software games book ever 
written for your Commodore 64. 


_ These easy to enter program listings turn 


your Commodore 64 micro into an entire 
arcade of electronic fun and thrills. 
Experience action so fast and furious it 


_ will shatter all your concepts about 


computer game excitement. 


Written by Clifford Ramshaw, author of 
the renowned VIC Innovative Computing 
and Mark Ramshaw of Zap Pow Boom VIC 
Arcade fame! These two programming 
wizards once again show how to get the 


ultimate game performance from your 


micro. 


“An offering that definitely lives up to its 
title. The programs cover a range of 
games with a selection of shoot-em-up 
Space wars, board games and a flight 
simulator.” Personal Computer News. — 


Every game program makes maximum 
use of the Commodore 64’s sophisticated 
features, including its innovative Sprite 
capability and excellent sound. 


“For a Commodore 64 games enthusiast 
this book is a must.’’ Personal Computer 
News. 

The Commodore 64 Games Book includes 
the unique CHEXSUM verification pro- 
gram that allows you to see at a glance if 
you have typed any program in this book 
correctly! 


r| 


_— | 
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ISBN O 86161 125 X 


ublishers Mai 


